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I.  INTRODUCTION 


The  moisture  content  of  fiber-reinforced  polymer  matrix  composite  materials  significantly 
affects  their  durability  and  mechanical  properties.  Immersion  testing,  used  to  investigate  the 
moisture  sorption-diffusion  behavior  of  composites,  involves  measuring  weight  changes  of 
specimens  as  a  function  of  the  time  they  are  immersed  in  water  at  a  particular  temperature. 
Immersion  testing  is  tedious  and  time  consuming.  Depending  upon  the  characteristics  of  the 
composite  and  temperature,  a  single  test  may  run  for  several  months,  generating  large 
amounts  of  data  which  must  be  collected  and  evaluated.  Weight  measurements  are  limited  to 
an  8-hour  work  schedule,  and  are  subject  to  operator  errors.  To  successfully  characterize  the 
sorption-diffusion  properties  of  composites,  many  immersion  tests  under  various  conditions  are 
required.  Manpower  constraints  limit  the  number  and  variety  of  conditions  at  which  materials 
can  be  evaluated. 

A  fully  automated  robotic  system  has  been  developed  for  performing  immersion  studies  in 
support  of  polymer  research  to  increase  the  productivity  for  the  evaluation  of  existing  and 
next  generation  materials.  Our  goals  in  designing  the  automated  immersion  testing  system 
were:  (1)  to  emulate  or  improve  upon  manual  operations,  (2)  to  increase  sample  throughput, 
(3)  to  improve  the  precision  and  accuracy  of  measurements,  and  (4)  to  provide  sufficient 
flexibility  to  handle  different  types  of  specimens  and  enable  future  expansion  of  operations. 

State-of-the-art  laboratory  robotics  coupled  with  today’s  personal  computers  provides  a 
flexible  means  for  addressing  the  problems  associated  with  immersion  testing  procedures  in  the 
laboratory.  In  the  following  sections,  this  report  describes  the  details  of  the  immersion  test 
method  and  the  hardware  and  software  design  of  the  robotics  work  cell  developed  for  perform¬ 
ing  automated  immersion  studies  continuously  and  unattended.  Section  II  (Analytical  Proced¬ 
ure)  describes  the  test  method  for  performing  manual  and  automated  immersion  studies. 

Section  III  (The  Analysis  of  Moisture  Sorption  Data)  discusses  the  method  for  interpreting 
immersion  test  data  and  how  this  information  may  be  used  in  the  evaluation  of  composite 
materials.  Our  objectives  and  design  constraints,  including  the  anticipated  problems  and  con¬ 
cerns  with  maintaining  the  integrity  of  an  immersion  study  using  laboratory  robotics,  are  dis¬ 
cussed  in  Section  IV  (Design  Objectives  and  Constraints).  The  hardware  and  software  designs 
are  detailed  in  Sections  V  (Hardware  Design)  and  V'l  (Software  Design),  respectively.  Sec¬ 
tion  VII  (System  Verification)  discusses  the  studies  performed  to  compare  the  manual  and 
automated  test  methods  for  validating  the  Automated  Immersion  Testing  Robotic  System,  and 
illustrates  the  significant  improvements  achieved  in  the  immersion  test  method  with  the  use  of 
laboratory  robotics.  Current  plans  for  improving  the  design,  and  extending  the  immersion  test¬ 
ing  system  to  include  accelerated  aging  studies  in  efforts  to  evaluate  the  durability  and  predict 
the  lifecycle  of  composite  materials,  arc  discussed  in  Section  VIII  (Future  Enhancements). 

II.  ANALYTICAL  PROCEDURE 

To  fully  understand  the  moisture  sorption-diffusion  behavior  of  one  composite  material 
processed  under  one  set  of  processing  parameters,  numerous  immersion  tests  under  various 
temperature  conditions  are  required.  A  single  immersion  test  involves  making  periodic  weight 
measurements  and  recording  the  change  in  the  specimen’s  weight,  with  respect  to  the 
specimen’s  initial  weight,  as  a  function  of  immersion  time.  The  following  paragraphs  describe 
the  manual  and  automated  immersion  test  method  procedures,  respectively. 
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Manual  Test  Method 


Organic  matrix  composite  test  specimens  are  typically  conditioned  by  drying  under  vacuum 
at  60°C  (or  below  their  glass  transition  temperature)  for  a  period  of  48  hours  (or  until  there 
is  no  further  decrease  in  weight).  After  allowing  the  specimens  to  equilibrate  in  a  desiccator, 
their  dimensions  are  measured  and  they  are  transferred  into  sample  jars  which  contain  60  ml 
of  the  immersion  liquid  (often  at  elevated  temperatures).  Weight  measurements  are  taken 
after  the  specimens  have  been  immersed  for  30  minutes,  1  hour,  2  hours,  4  hours,  6  hours, 

24  hours,  and  30  hours.  Subsequent  weight  measurements  are  taken  weekly  until  the 
specimens  no  longer  exhibit  a  change  in  weight. 

The  weighing  process  involves  removing  the  specimen  from  the  immersion  liquid,  blotting 
the  specimen  with  high  absorbent  filter  paper  to  remove  all  surface  liquid  droplets,  weighing 
the  specimen,  and  returning  it  to  the  immersion  liquid  as  quickly  as  possible.  For  each 
weight  measurement,  the  total  time  the  specimen  has  been  immersed  and  the  actual  weight 
reading  is  recorded.  By  plotting  the  percent  weight  change  versus  the  square  root  of  time, 
the  diffusion  rate  may  be  calculated  using  the  Fickian  law  of  diffusion,  described  in  Section 
III  (Analysis  of  Moisture  Sorption  Data). 

Automated  Test  Method 

In  the  initial  designing  phase  of  the  immersion  testing  robotic  work  cell,  the  primary  goal 
was  to  develop  a  system  that  performed  immersion  tests  precisely  the  same  way  as  in  the 
established  manual  immersion  testing  procedures.  Although  the  immersion  test  method  is 
straightforward,  many  complex  operations  are  required;  e.g.,  manipulating  small  specimens, 
capping  and  uncapping  specimen  jars,  blotting  the  surface  liquid  droplets  from  specimens,  and 
making  accurate  weight  measurements. 

Initializing  a  specimen  into  the  Automated  Immersion  Testing  Robotic  System  involves 
manual  as  well  as  automated  operations.  First,  specimens  are  conditioned  manually  (as  stated 
in  the  Manual  Tost  Method  Section),  their  dimensional  measurements  are  taken  and  entered 
into  the  computer  by  the  operator,  and  the  specimen  is  placed  in  a  specimen  holder  within 
the  robot’s  work  envelope.  The  robot  then  proceeds  by  taking  the  specimen’s  “initial”  weight 
measurement,  placing  the  specimen  in  a  designated  specimen  jar  containing  the  immersion 
liquid  at  a  given  temperature,  and  returning  the  specimen  jar  to  a  temperature-controlled  cir¬ 
culating  water  bath. 

The  process  of  making  weight  measurements  for  the  remainder  of  the  immersion  test  pro¬ 
cedure  follows  the  manual  lest  method  operations,  as  stated  previously,  with  two  major 
exceptions.  First,  the  robot  performs  the  required  operations,  and  the  computer  records  and 
calculates  all  immersion  test  data.  Second,  the  robot  is  allowed  to  make  weight 
measurements  more  frequently  during  the  normal  8-hour  work  day,  overnight,  and  on 
weekends. 


III.  ANALYSIS  OF  MOISTURE  SORPTION  DATA 


The  objective  of  the  immersion  test  is  to  determine  the  moisture  content  (percent  weight 
gain)  of  a  material  as  a  function  of  its  immersion  time.  When  water  is  used  as  the 


immersion  liquid,  the  test  is  essentially  the  ASTM  Standard  Test  Method  for  Water  Absorp¬ 
tion  of  Plastics  (D  570).*  Determinations  of  the  relative  rate  of  water  absorption  are  impor¬ 
tant  in  evaluating  the  effects  of  moisture  exposure  on  such  properties  as  mechanical  strength, 
electrical  resistivity,  dielectric  losses,  physical  dimensions,  and  appearance.  Moisture  content 
has  significant  effects  on  physical-mechanical  properties  and  the  long-term  durability  of  poly¬ 
meric  and  organic  matrix  composite  materials. 

To  interpret  immersion  test  data,  moisture  diffusion  through  the  thickness  of  a  test  speci¬ 
men  can  be  described  using  a  one-dimensional  Fickian  equation 

dC/dt  =  D  d^C/dx"  (1) 

where  C  is  the  moisture  concentration  in  the  specimen,  x  is  the  thickness  parameter,  t  is 
exposure  time,  and  D  is  the  effective  diffusivity  of  moisture  through  the  thickness.  Assuming 
that  moisture  diffusion  and  temperature  are  constant  inside  the  specimen  and  under  appropri¬ 
ate  boundary  conditions,^  the  solution  for  Equation  1  can  be  approximated  as 

Q  =  G  (Ce  -  Co)  -h  Co  (2) 

where  Q  is  the  moisture  content  of  the  specimen  at  time  tj,  Cg  is  the  moisture  content  of 
the  specimen  at  equilibrium  (maximum  moisture  uptake),  Co  is  the  initial  moisture  content 
(assumed  to  be  uniform  or  zero),  G  is  a  time-dependent  parameter  defined  as 


Gi  =  1  -  exp 


" 

fDtj) 

0.75  - 

-7.30 

(3) 


and  h  is  the  thickness  of  the  specimen  exposed  on  both  sides.  Since  (Equation  2)  the 
percentage  weight  (wt%)  gain  Wj  =  100  Gj,  moisture  diffusivity  Do  can  be  determined 
directly  from  experimental  data  by  plotting  Wj  versus  (tj)*^^  and  calculated  either  from  the 
initial  slope  So 

Do  =  0.196«h***(So/We)^  (4) 


or  from  the  time  ti/2  corresponding  to  one-half  of  the  maximum  moisture  uptake  value  Wg 
for  the  specimen,  as  illustrated  in  Figure  1, 


Do  =  0.049 -(h'/ti/.)  . 


(5) 


The  diffusivity  Do  and  equilibrium  moisture  content  Wg  are  parameters  which  describe  a 
specimen’s  moisture  diffusion  properties. 


Figure  1  illustrates  the  typical  sorption-diffusion  curve  following  the  Fickian  law  of 
diffusion. 


1.  AS'rM  D  570.  Standard  Test  Method  for  IVater  Absorption  of  TIasties.  1087  Annual  HiHik  iif  AS  TM  Slandards,  v,  08.01.  .Anicritan  Soticiv 

for  Testing  and  Maleiials,  I’hiladclphia,  I* A.  1767. 

2.  SUFif'T^C  W,  and  SPRINOT.R.  Ci.  S.  Moisntre  Absorption  and  Desorption  of  Composite  Materials.  .IComposile  Materials,  v  10,  l')7(i. 
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Rgura  1.  Typical  moisture  sorption/diffusion  curve. 


IV.  DESIGN  OBJECTIVES  AND  CONSTRAINTS 

In  addition  to  a  flexible,  programmable  robot,  the  automation  of  immersion  testing 
required  peripheral  equipment  for:  (1)  maintaining  specimen  jars,  immersion  liquids,  and  test 
specimens  at  a  constant  and  elevated  temperature,  (2)  capping  and  uncapping  specimen  jars. 
(3)  bloUlng  specimcuj,  and  (4)  making  accurate  weight  measurements  to  the  fifth  decimal 
place.  In  the  process  of  selecting  and/or  designing  thi.s  specialized  equipment,  we  found  that 
the  system  could  not  be  designed  easily  and  reliably  to  handle  all  immersion  tests  in  a  generic 
sense.  For  this  reason  constraints  were  established. 

System  Constraints 

The  immersion  testing  robotic  work  cell  was  designed  around  two  constraints;  specimen 
configuration  and  limitations  on  immersion  liquids. 

Specimen  Conflguration:  Since  immersion  specimens  vary  in  size,  shape,  thickness,  rigid¬ 
ity,  and  uniformity,  standardized  sample  specifications  had  to  be  established.  In  this  initial 
work,  it  was  therefore  decided  to  restrict  the  test  to  rigid,  one-inch  square  or  disk  specimens 
of  relatively  uniform  thickness  (0.5  mm-1.9  mm).  This  decision  was  made  for  three  reasons: 
(1)  there  is  a  high  and  continuing  demand  for  evaluating  composite  materials:  composite 
specimens  are  rigid  and  easily  fabricated  to  the  specified  dimensions,  (2)  the  specimen  size  is 
relatively  consistent  with  ASTM  test  methods,  and  (3)  uniform  specimens  of  this  configuration 
allow  the  robot  the  ability  to  handle  specimens  directly  with  custom  forcepslike  fingers,  and 
allow  the  blotting  operations  to  be  simplified  for  enhanced  reliability. 

Immersion  Liquids:  Liquids  used  in  immersion  testing  also  vary.  Some  liquids  are 
hazardous  or  corrosive,  requiring  specimens  to  be  self-contained  in  closed  jars.  The  majority 
of  immersion  tests,  especially  for  testing  composites,  are  performed  with  water  or  saline 
solutions.  To  provide  as  much  Hexibility  as  possible,  a  decision  was  made  to  demonstrate  the 
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system  using  “safe”  liquids,  primarily  distilled  water,  while  simulating  more  hazardous  situations 
by  using  screw-capped  containers  for  future  adaptations  to  more  hazardous  environments. 

Design  Objectives 

As  mentioned  in  the  introduction,  our  goals  in  designing  the  immersion  testing  system 
were:  (1)  to  emulate  or  improve  upon  operations  as  specified  in  the  manual  immersion  test 
method,  (2)  to  increase  sample  throughput,  (3)  to  improve  the  precision  and  accuracy  of 
measurements,  and  (4)  to  provide  sufficient  flexibility  to  handle  different  types  of  specimens 
and  enable  future  expansion  of  operations.  Although  there  were  many  anticipated  advantages 
to  automating  the  immersion  test  procedure,  there  were  also  many  concerns  with  maintaining 
the  integrity  of  the  test  method.  The  following  paragraphs  address  our  design  goals  in 
greater  depth,  and  point  out  advantageous  as  well  as  potential  problem  areas. 

Improved  Operations:  Although  the  automated  immersion  test  method  duplicates  the 
mechanics  of  the  manual  test  method,  several  improvements  were  made  in  the  test  procedure. 
First,  as  discussed  in  Section  II  (Analytical  Procedure),  the  manual  test  method  limited  weight 
measurements  to  five  measurements  on  day  1,  two  measurements  on  day  2.  one  measurement 
on  day  3,  and  one  measurement  per  week  for  the  remainder  of  the  study.  Through  automa¬ 
tion,  weight  measurements  may  be  taken  more  frequently  during  a  normal  working  schedule, 
and  additional  information  may  be  obtained  by  making  measurements  overnight  and  during 
weekends  and  holidays.  Using  a  simple  algorithm,  the  robot  can  be  programmed  to  look  at 
past  data  to  determine  and  alter  the  time  interval  between  weight  measurements  as  necessary. 

One  of  the  anticipated  advantages  to  making  more  frequent  weight  measurements  was  to 
be  able  to  capture  information  anomalous  to  Fickian’s  law  of  diffusion.  Along  with  this 
expected  advantage  came  a  potential  problem.  Since  the  number  of  weight  measurements 
taken  during  the  course  of  an  immersion  study  was  significantly  increased,  we  were  concerned 
about  the  affects  that  this  might  have  on  the  overall  integrity  of  immersion  test  data  (i.e., 
whether  the  increased  amount  of  time  that  the  specimens  are  removed  from  their  respective 
liquid  environments  would  affect  overall  test  results). 

The  second  major  improvement  in  operations  concerns  specimen  handling.  In  the  manual 
test  method,  specimens  are  allowed  to  lay  flat  on  the  bottom  of  their  re.spec»iv«  -sample  jars, 
limiting  the  flow  of  immersion  liquid  around  the  specimens.  To  address  this  problem,  and  to 
provide  a  means  for  the  robot  to  manipulate  specimens  into  and  out  of  specimen  jars,  sample 
jars  were  custom  designed  to  hold  rigid  specimens  vertically  (refer  to  Section  V,  Hardware 
Design). 

Sample  Throughput:  Although  automation  did  not  decrease  the  amount  of  time  required 
to  perform  an  immersion  test,  many  more  specimens  may  be  evaluated  during  a  period  of 
time  using  robotics.  Materials  may  now  be  evaluated  under  a  variety  of  temperature  con¬ 
ditions.  Materials  processed  under  varying  processing  conditions  may  now  be  studied.  Along 
with  performing  the  mechanical  tasks  of  immersion  testing,  data  handling,  too.  affects  sample 
throughput.  Robotics,  coupled  with  computers,  make  the  time  required  for  data  acquisition, 
data  handling,  and  data  reduction  negligible. 

Robotics  generally  include  feedback  and  control  systems  which  verify  accuracy  and 
functionality  for  each  operation.  For  this  rea.son,  the  automated  system  takes  twice  as  long 
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to  maLe  a  single  weight  measurement  as  a  human  operator.  Determining  what  effects  this 
additional  length  of  time  would  have  on  the  overall  test  result  was  a  major  concern. 

Precision  and  Accuracy  of  Measurements:  A  large  advantage  of  using  robotics  is  that 
each  weight  measurement  for  each  specimen  is  performed  in  exactly  the  same  way. 
Measurements  are  taken  exactly  on  time,  and  data  acquisition  is  not  subject  to  human  error. 

One  major  concern  in  maintaining  and/or  improving  the  accuracy  of  measurements  was  in 
the  specimen  blotting  procedure.  The  manual  blotting  process  relies  on  visual  inspection  to 
ensure  that  all  water  droplets  have  been  removed  from  the  specimen  prior  to  a  weight 
measurement  (i.e.,  one  droplet  left  on  a  specimen  will  result  in  a  significant  increase  in 
weight).  Since  the  automated  system  does  not  have  that  visual  capability,  the  concern  was  in 
the  reliability  of  removing  all  droplets  from  all  surfaces,  including  specimen  edges. 

Flexibility:  It  was  important  to  limit  the  scope  of  our  design  initially  in  order  to  pro¬ 
duce  a  successful  design  with  a  limited  cost  investment.  However,  anticipating  future  applica¬ 
tions,  the  robotic  system  was  designed  with  the  flexibility  required  to  expand  its  capabilities 
and  extend  the  variety  of  materials  and  test  conditions. 

V.  HARDWARE  DESIGN 


Equipment 

The  Automated  Immersion  Testing  Robotic  System  primarily  consists  of  a  host  IBM 
PC/AT  computer  interfaced  with  a  Zymark  Zymate  laboratory  robotic  work  cell.  In  addition 
to  a  robot  arm  and  controller,  the  robotic  work  cell  is  comprised  of  four  major  “work 
stations"  designed  for  performing  very  specific  tasks:  (1)  a  teniperature  controlled,  circulating 
water  bath  used  to  maintain  the  specimens  and  immersion  liquids  at  a  constant,  and  often 
elevated,  temperature,  (2)  a  jar  capping/uncapping  station.  (.^)  a  sample  blotting  station  for 
removing  surface  droplets  from  the  specimens  prior  to  making  weight  measurements,  and  (4) 
a  weighing  station  for  measuring  the  weight  of  specimens  at  timed  intei-vals.  A  description  of 
each  major  work  station  and/or  piece  of  equipment  is  given  in  the  following  paragraphs. 

Robot  and  Controller:  The  robot  and  controller  module  include  a  Zymate  1  robot  with  a 
“general  purpose"  hand,  a  Zymate  controller  with  an  expansion  memory  card  and  EZL  \B  pro¬ 
gramming  software,  and  a  teaching  pendant  for  remote  positioning. 

Robot  Grippers:  A  Zymate  general  purpo.se  hand  was  modified  with  two  sets  of  custom 
fingers  providing  a  dual  capability.  General  grippers,  made  from  aluminum  with  rubber  pad¬ 
ding  on  the  inside,  were  designed  to  handle  large  sample  jars  from  l--^/4  to  ?>  inches  in  dia¬ 
meter.  The  specific  dimensions  arc  illustrated  in  Figure  2.  Forcepslike  fingers  were  designed 
to  handle  specimens  directly  (Figure  3).  Also  made  (d  aluminum,  these  fingers  are  5  inches 
in  length  and  can  handle  a  sample  thickness  of  up  to  1  inch. 

Sample  Jars:  Standard  off-the-shelf  100  mL  (2  inches  in  diameter).  Pyrex.  screw-can  jars 
were  individually  modified  to  hold  the  immersion  specimens  in  an  upright,  vertical  piwition. 

The  jars  were  modified  in  two  ways:  First,  a  custom.  Pyrex  specimen  holder,  consisting  of 
two  1.5-inch  concave  pieces  of  glass,  was  fu.sed  1.25  inches  apart  with  a  2-mm  slit  ripening  to 
the  inside  bottom  of  each  jar  (Figure  4).  The  specimen  holder  is  lluted  at  the  top.  allowing 
easy  replacement  of  the  specimen  inside  the  jar.  Second,  a  Pyrex  "tab"  was  mounted  inside 


the  1.25-inch  neck  (inside  diameter)  of  the  jar,  positioned  perpendicular  to  the  specimen 
holder.  This  tab  protrudes  out  0.125  inch  towards  the  center  of  the  specimen  holder,  and  is 
used  by  the  robot  to  locate  the  specimen.  These  modifications  allow  easy  access  to  the 
specimens  inside  the  jars,  a  more  uniform  flow  of  the  immersion  liquid  around  the  specimens, 
and  each  specimen  to  have  a  unique  liquid  environment,  if  desired. 


Top  View 


Side  View 


Figure  2.  Robot  gripper  design. 


k-  1/2” 


5/16” 


Rgure  3.  Forceps  finger  design. 


Figure  4  Specimen  jar  design 


Water  Bath:  A  Fisher  Scientific  Model  260  temperature-controlled,  circulating  water  bath 
is  u.sed  to  maintain  the  desired  temperature  of  the  specimens  and  their  immersion  liquids. 

The  water  bath  was  modified  with  a  custom-designed  rack  consisting  of  an  aluminum  platform 
designed  to  fit  within  the  inner  chamber  of  the  bath  and  a  polypropylene  platform  with  uni¬ 
form  jar  slots  which  rests  on  top  of  the  bath  casing.  Adjustable  cylindrical  fittings  between 
the  two  platforms  allow  the  sample  jars  to  be  immersed  in  the  water  bath  at  the  appropriate 
depth. 
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The  specimen  jars  are  placed  in  the  water  bath  so  that  only  the  tops  of  the  jars  are 
exposed.  This  allows  the  robot  access  to  the  specimen  jars  and  a  uniform  temperature 
environment  for  exposure  of  specimens. 

A  blotter  is  used  to  remove  excess  water  from  the  bottoms  of  sample  jars  as  they  are 
transferred  from  the  water  bath.  This  blotter  consists  of  an  absorbent  sponge  mounted  on  a 
polypropylene  platform  positioned  6  inches  above  the  work  bench. 

Capping/Uncapping  Station:  A  commercial  capping  station,  Zymark  Model  Z410,  is  used 
for  multiple  tasks.  Conventionally,  it  is  used  for  capping  and  uncapping  the  sample  jars. 

This  “work  station”  is  equipped  with  its  own  grippers,  used  to  grip  the  sample  jars  securely, 
and  a  rotational  base  which  rotates  in  the  appropriate  direction  (clockwise  for  capping  and 
counterclockwise  for  uncapping).  Using  the  motion  of  the  capping  station,  the  robot,  with  a 
firm  grip  on  the  cap,  lifts  the  cap  up  (or  moves  the  cap  downward,  whichever  the  case  may 
be)  to  complete  the  capping  or  uncapping  procedures.  A  polypropylene  cap  holder,  conform¬ 
ing  to  the  shape  of  the  inside  of  the  jar  caps,  is  mounted  on  a  ring  stand  to  provide  a 
secure  and  accessible  place  for  the  robot  to  store  the  cap  while  attending  to  other  tasks. 

For  our  applications,  the  capping  station  is  also  used  for  “orienting”  the  jar,  and  thereby, 
locating  the  specimen  in  the  jar.  Using  the  capping  station  to  rotate  the  jar,  the  robot’s 
forcepslike  fingers  are  partially  inserted  into  the  jar  and  opened.  Contact  between  the 
fingers  and  the  glass  “tab,”  located  in  the  neck  of  the  jar,  causes  the  jar  to  stop  rotating  and 
positions  the  robot  fingers  at  a  90-degree  angle  directly  above  the  specimen.  In  this  way.  the 
fingers  can  be  lowered  and  always  gain  a  firm  purchase  of  the  specimen  for  removal  and 
handling. 

Blotting  Station:  The  blotting  station  (Figure  5)  simulates  the  manual  method  of  blotting 
specimens.  The  blotter  consists  of  two  3-  x  3.5-inch  vertically  mounted  plates.  The  first 
plate,  held  by  a  ring  stand,  remains  stationary,  while  the  other  plate,  connected  to  an  air- 
actuated  pneumatic  cylinder  mounted  on  a  ring  stand,  is  allowed  to  move  back  and  forth  over 
a  distance  of  3  inches. 


Spongelike 

Pads 


Rgure  5.  Specimen  bioner  design. 
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The  design  of  the  blotting  station  allows  the  robot’s  fingers  to  hold  a  specimen  against  a 
stationary  plate  while  a  mobile  plate  closes  in  on  the  specimen.  Initially,  the  plates  are  posi¬ 
tioned  2.75  inches  apart.  Highly  absorbent  filter  paper  is  mounted  on  sponge  pads  located 
on  the  plates’  inner  surfaces.  The  filter  paper  collects  surface  droplets  from  the  specimen 
and  insures  that  the  specimen  edges  are  blotted  as  well.  A  relay  switch,  mounted  to  the 
mobile  plate,  is  used  to  verify  that  the  blotter  is  functioning  properly  at  all  times. 

To  insure  removal  of  all  surface  droplets,  each  specimen  must  be  regripped  and  blotted 
several  times.  An  individual  polypropylene  specimen  holder,  mounted  6  inches  above  the 
working  bench,  allows  the  robot  to  set  the  specimen  down  and  regrip  it  in  a  different  loca¬ 
tion.  This  is  done  so  that  droplets  that  may  have  been  trapped  beneath  the  forcepslike 
fingers  are  removed.  The  filter  paper,  mounted  on  the  mobile  blotting  plate,  is  extended 
0.25  inch  above  the  mobile  plate  to  allow  the  robot  to  blot  the  inside  of  the  forceps  prior  to 
regripping  the  specimen. 

A  heated  air  gun  with  a  directional  nose  is  positioned  beneath  the  blotter  to  dry  the  fil¬ 
ter  paper  after  each  specimen  is  blotted  in  preparation  for  the  next  specimen. 

Weighing  Station:  A  Mettler  A163  dual-range,  top-loading,  analytical  balance  is  used  for 
weighing  the  specimens.  A  polypropylene  specimen  holder  is  mounted  securely  to  the  balance 
pan  and  positioned  1  inch  below  the  top  of  the  weighing  cavity.  Specimens  are  loaded  into 
the  top  of  the  balance  via  the  top  sliding  window.  This  window  is  automatically  opened  and 
closed  using  the  Zymark  Automatic  Balance  Door  Opener  mounted  on  top  of  the  balance. 

The  automatic  door  opener,  which  is  connected  to  the  window  handle,  slides  the  balance  door 
back  and  forth  using  an  air-actuated  pneumatic  cylinder.  A  relay  switch  is  included  for  veri¬ 
fication  purposes. 

The  Zymark  balance  interface  allows  communication  between  the  balance  and  the  robot 
controller.  This  allows  programmable  control  for  taring  the  balance  prior  to  each  weight 
measurement. 

Sensors:  Two  optical  verification  sensors  (Model  37622)  with  LED  and  photocells  are 
used  to  verify  jar  and  cap  manipulations.  A  third  verification  switch  is  used  to  verify  that 
the  specimens  are  retrieved  from  the  various  “work  stations’’  properly. 

Power  and  Event  Controller:  This  module,  Zymark  Model  Z830,  allows  programmable 
control  of  several  logical  inputs,  switch  closures.  DC  power  supplies,  and  electrical  power  out¬ 
lets.  It  is  used  for  transmitting  and  receiving  information  to  and  from  all  of  the  various 
sensors,  relay  switches,  and  solenoid  valves  used  by  the  Automated  Immersion  Testing  Robotic 
System. 

Host  Computer:  An  IBM  PC/AT  with  a  20  MB  hard  disk  is  used  for  data  acquisition 
and  handling.  This  computer  includes  a  floppy  diskette  drive.  DOS  operating  system.  BASIC 
programming  language,  enhanced  color  monitor  and  adapter  card.  IBM  Pro-printer,  and  RSI 
graphics  package. 

The  Zymark  computer  interface  card,  designed  specifically  for  interfacing  the  Zymark  con¬ 
troller  with  an  IBM  PC,  allows  real-time  communication  between  the  robot  controller  and  the 
host  computer. 
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System  Configuration 


The  layout  arrangement  is  illustrated  in  Figure  6.  The  robotic  work  cell  is  configured 
with  each  work  station  securely  mounted  on  a  4  x  7  foot  tabletop. 


Figure  6.  Immersion  testing  robotic  system  layout. 


Hardware  Interfacing/Connections:  The  robot  controller  is  equipped  with  16  communica¬ 
tion  ports  which  are  necessary  for  interfacing  the  individual  work  stations  and  various  modules 
into  one  complete  system.  Each  standard  Zymark  “work  station”  and/or  module  includes  an 
interfacing  circuit  board.  A  menu  driven  programming  facility  is  provided  with  each  interface 
board.  Once  these  interfaces  are  connected  to  a  communications  port  within  the  robot  con¬ 
troller,  the  necessary  programming  tools  for  running  and  maintaining  that  particular  module 
are  installed.  The  robot  arm,  capping  station,  printer,  and  power  and  event  controller  mod¬ 
ules  only  require  a  simple  connection.  The  connection  is  made  to  the  robot  controller,  via 
respective  interfacing  circuit  boards  and  a  communications  port,  to  achieve  software  control 
over  physical  functions. 

Host  Computer:  The  host  computer  is  interfaced  with  the  robot  controller,  via  a  compu¬ 
ter  interface  module  connection,  to  one  of  the  controller’s  communications  ports.  Communica¬ 
tion  between  the  two  systems  is  achieved  with  a  9-pin  to  25-pin  RS232  connection  between 
the  controller’s  computer  interface  module  card  and  the  computer’s  RS232  communications 
port. 

Pneumatic  Cylinders:  The  blotting  and  weighing  stations  are  powered  by  a  100  psi 
regulated  air  compressor  connected  to  two  4-way  solenoid  valves  (one  for  the  blotter  and  one 
for  the  balance  door  opener).  Vinyl  tubing  and  a  3-way  polypropylene  connector  connect  the 
valves  to  the  air  compressor  and  the  respective  pneumatic  cylinders.  The  auxiliary  motion  of 
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both  work  stations  is  programmable  by  a  hardware  connection  between  the  solenoid  valves 
and  one  of  the  eight  switch  closures,  and  the  +  12-volt  power  supply  on  the  power  and  event 
controller  (PEC)  module.  The  status  of  the  verification  relay  switch  mounted  on  both 
stations  is  accessible  through  a  connection  between  the  relay  switches  and  one  of  the  PEC’s 
eight  logic  inputs.  Both  of  these  relay  switches  are  mounted  so  that  the  switch  is  “closed” 
when  the  pneumatic  cylinders  are  compressed. 

Balance:  The  communication  between  the  balance  (digital  output)  and  the  robot  con¬ 
troller  requires  an  RS232  interface  board  connection  from  the  RS232  port  of  the  balance  to 
a  communications  port  in  the  controller. 

Air  Dryer:  Software  control  over  the  air  dryer  is  achieved  by  plugging  in  the  dryer  to  a 
10-amp  electrical  outlet  which  is  connected  to  one  of  the  switch  closures  and  the  -t-5-volt 
power  supply  on  the  PEC. 

Sensors:  All  three  optical  sensors  are  connected  to  a  logical  input  on  the  PEC.  This 
allows  programmable  access  to  the  status  of  each  sensor. 

The  placement  of  the  two  primary  photo  sensors  is  critical  for  detecting  errors  in  the 
robot’s  routine.  Since  the  majority  of  problems  that  may  occur  with  the  jar  and  cap 
manipulations  center  around  the  capping  station,  both  sensors  are  focused  on  the  capping  sta¬ 
tion  at  a  90-degree  angle  to  each  other.  Sensor  1  is  positioned  at  a  height  required  to 
detect  several  events;  (1)  if  the  cap  is  not  capped  properly  (i.e.,  the  cap  is  not  threaded  pro 
perly  on  the  jar),  (2)  the  cap  is  not  removed  from  the  jar  during  the  uncapping  procedure 
(i.e.,  the  cap  is  fastened  too  tightly  for  the  robot  to  release  it  from  the  jar),  (3)  the  jar  is 
lifted  with  the  sample  while  trying  to  retrieve  the  specimen  from  the  jar,  (4)  the  jar  is 
retrieved  from  the  bath  properly,  and  (5)  the  jar  is  retrieved  from  the  capping  station 
properly. 

Sensor  2  is  positioned  at  a  height  required  to  detect  the  following  events:  (1)  the  cap  is 
removed  from  the  jar  during  the  uncapping  procedure,  (2)  the  cap  is  removed  from  the  “cap 
holder”  properly  in  order  to  recap  the  jar,  (3)  the  jar  is  retrieved  properly  from  the  bath, 
and  (4)  the  jar  is  retrieved  properly  from  the  capping  station.  The  specifics  of  these  error 
detection  routines  are  discussed  in  greater  detail  in  Section  VI,  Software  Design. 

VI.  SOFTWARE  DESIGN 

The  software  design  of  the  Automated  Immersion  Testing  Robotic  System  is  made  up  of 
two  primary  modules,  the  Method  Controller  and  the  Manager.  The  Method  Controller  is  a 
set  of  subroutines  written  in  the  EZLAB  programming  language  in  the  robot  controller  and 
used  to  instruct  the  robot  through  the  mechanics  of  the  immersion  testing  procedure.  The 
Manager,  written  in  BASIC  on  the  IBM  PC/AT,  provides  control  of  the  sequence  and  schedul 
ing  of  events,  and  handles  all  data  acquisition.  The  Manager  is  the  host  program  which  calls 
on  the  Method  Controller  to  instruct  the  robot  through  the  appropriate  set  of  tasks. 

Method  Controller 

The  main  function  of  the  Method  Controller  is  to  instruct  the  robot  through  the  immer¬ 
sion  testing  procedure  and  handle  the  mechanics  of  the  error  detection,  verification,  and 
correction  routines.  All  discrete  robot  movements  are  assigned  and  programmed  using  the 
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robot  controller.  Robot  functions,  or  tasks,  are  programmed  as  subroutines  using  the  EZLAB 
programming  language.  The  organization  of  these  tasks,  which  together  make  up  the  immer¬ 
sion  test  procedure,  are  coordinated  in  the  Manager  using  BASIC  on  the  IBM  PC/AT. 

A  unique  subroutine  is  created  for  each  discrete  task  the  robot  performs.  The  primary 
subroutines  which  make  up  the  immersion  testing  procedure  of  an  immersion  study  are  as 
follows: 

1.  remove  sample  jar  from  water  bath, 

2.  blot  bottom  of  jar  (remove  excess  water  from  the  bottom  of  the  jar), 

3.  check  for  presence  of  jar  (using  two  photo  sensors,  four  positions  on  the  jar  are 
verified  to  ensure  that  the  robot  is  handling  the  jar  properly), 

4.  uncap  the  jar, 

5.  check  for  successful  removal  of  cap, 

6.  place  cap  aside, 

7.  remove  sample  from  jar, 

8.  check  for  successful  removal  of  sample, 

9.  blot  sample  (remove  surface  droplets), 

10.  check  for  sample  (after  blotting  procedure), 

11.  weigh  sample  (recording  the  weight), 

12.  check  for  sample  removal  (from  balance), 

13.  place  sample  in  jar, 

14.  cap  sample  jar, 

15.  check  for  presence  of  jar,  and 

16.  return  sample  jar  in  bath. 

Since  the  Manager  makes  the  necessary  decisions  when  procedural  errors  occur  in  the 
immersion  test  method  routine,  the  above  16  primary  subroutines  are  combined  in  higher  level 
programs  in  the  robot  controller  so  that  the  last  task  in  each  program  is  a  verification,  or 
error  checking,  routine.  When  the  Method  Controller  returns  control  to  the  Manager,  the 
status  of  the  sensor  used  for  verification  is  also  returned.  This  allows  the  Manager  to  make 
the  appropriate  decision  and  instruct  the  Method  Controller  to  execute  the  most  suitable 
action  or  correction  subroutine.  All  subroutines  and  programs  used  to  instruct  the  robot 
through  the  mechanics  of  the  immersion  test  method  arc  listed  in  Appendix  A. 
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Manager 

The  Manager  handles  the  scheduling  activities,  problem/error  decisions,  calculations,  data 
storage  and  retrieval,  and  reporting  features.  The  Manager,  Appendix  B,  is  divided  into  four 
primary  sections:  (1)  the  Initialization  Procedure,  (2)  the  Main  Module  or  Scheduling  Proce¬ 
dure,  (3)  the  Immersion  Testing  Module,  and  (4)  Function  Key  Subroutines.  The  Manager 
continuously  searches  for  the  next  activity  to  be  performed  until  one  of  the  function  keys,  set 
up  to  terminate  the  program,  is  executed. 

Initialization:  The  initialization  portion  of  the  program  assigns  all  variables  and  flags, 
opens  communication  between  the  IBM  and  robot  controller,  opens  all  data  files  used  to 
keep  track  of  specimens,  and  initializes  function  keys  (see  section  on  function  key  sub¬ 
routines).  Six  types  of  data  files  are  used  to  keep  track  of  specimens,  events,  and  errors. 

STUDIES.DAT  is  the  data  file  which  keeps  track  of  all  current  specimens  undergoing  an 
immersion  test.  Each  record  in  the  data  file  contains  information  unique  to  a  particular  speci¬ 
men:  (1)  the  location  (index)  within  the  water  bath;  i.e.,  which  jar  contains  the  specimen, 

(2)  the  initial  weight  of  the  specimen,  (3)  the  time  the  last  weight  measurement  was  made, 

(4)  the  date  the  last  weight  measurement  was  made,  (5)  the  current  time  interval  between 

weight  measurements,  (6)  the  time  the  next  weight  measurement  should  be  made,  and  (7)  the 
date  the  next  weight  measurement  should  be  made. 

JARSTATS.DAT  is  the  data  file  which  indicates  the  current  status  of  each  jar  in  the 
water  bath  (in  this  case,  there  are  30  bath  locations  indexed  in  a  uniformed  6x5  rack). 

Each  record  (the  record  numbers  correspond  to  the  index  of  the  jars  within  the  bath)  in  this 
data  file  contains  information  unique  to  each  specimen  jar:  (1)  the  rating  of  the  jar  (Since 
some  jars  are  more  reliable  than  others,  they  are  rated  so  that  specimens  requiring  more  fre¬ 
quent  weight  measurements  use  the  most  reliable  jars,  and  specimens  weighed  less  often  use 
less  reliable  jars.  This  limits  the  number  of  errors  that  occur  while  removing  and  replacing 
specimens  in  their  immersion  jars.  A  rating  of  “1”  indicates  the  most  reliable  jars  to  be  used 
for  specimens  which  require  measurements  every  24  hours  or  less.  A  rating  of  “2”  indicates 

the  less  reliable  jars  to  be  used  for  specimens  which  have  a  time  interval  between  weighings 

of  25  or  more  hours.),  (2)  a  flag  to  indicate  if  the  jar  is  currently  being  used  (1  indicates 
yes,  0  indicates  no),  (3)  the  current  time  interval  between  weighings  assigned  to  the  specimen 
in  that  particular  jar,  and  (4)  whether  or  not  the  jar  contains  the  immersion  liquid  [1 
indicates  yes,  0  indicates  no  (empty)]. 

STATUS.REP  is  the  data  file  which  is  for  diagnostic  purposes.  As  errors  occur,  a  record 
of  (1)  the  type  of  error,  [0  indicates  nonfatal,  1  indicates  fatal  (i.e.,  the  study  was  discon¬ 
tinued  for  a  particular  specimen)],  (2)  which  specimen/jar  had  the  error,  (3)  the  time  of  the 
error,  and  (4)  a  description  of  the  error  (what  steps  were  taken  to  correct  the  error  and  if 
the  error  correction  routines  were  successful).  This  data  file  is  used  by  the  operator  in  order 
to  locate  and  fix,  if  appropriate,  problems  so  that  a  study  may  be  continued,  and  to  locate 
problem  jars  (i.e.,  change  their  status)  or  problems  in  the  routines  which  may  require 
modifications. 

DATAFILE.DAT  is  the  data  file  which  keeps  track  of  file  names  used  to  store  the  raw 
data  for  each  specimen.  Each  record  of  the  data  file  corresponds  to  the  unique  specimen 
which  occupies  that  record  number  (index)  in  the  water  bath.  The  name  of  the  data  files 
are  assigned  by  the  operator  when  a  specimen  is  initialized. 
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The  data  files  (unique  for  each  specimen)  contain  the  raw  data  for  a  unique  specimen. 
Each  record  contains  information  related  to  one  weight  measurement:  (1)  the  date  of  the 
measurement,  (2)  the  time  of  the  measurement,  (3)  the  number  of  hours  in  the  study  past, 

(4)  the  weight  measurement  taken,  and  (5)  the  change  in  weight  (current  weight  -  initial 
weight). 

SPECS.DAT  is  the  data  file  which  stores  all  information  concerning  the  specimens 
currently  undergoing  the  immersion  test.  Each  record  contains  information  unique  to  each 
specimen  (the  record  number  corresponds  to  the  specimen/jar  index  number):  (1)  description 
of  specimen,  (2)  type  of  resin,  (3)  type  of  fiber,  (4)  composite  prepreg  configuration  (i.e., 
direction  of  fibers),  (5)  temperature  of  study,  (6)  specimen  thickness,  (7)  specimen  surface 
area,  and  (8)  specimen  conditioning  parameters. 

Main  Module:  The  main  module  makes  use  of  the  STUDIES.DAT  file  by  looping 
through  all  of  the  file’s  records.  A  comparison  of  the  current  date  and  time  is  made  with 
the  “next  date”  and  “next  time”  fields  of  each  record.  If  there  is  a  match,  or  the  current 
time  and  date  is  greater  than  the  time  and  date  of  the  next  scheduled  weighing,  the  immer¬ 
sion  testing  subroutine  is  invoked.  After  one  pass  through  all  records  of  the  file  (invoking 
the  immersion  testing  subroutine  as  appropriate),  this  module  checks  to  see  if  the  operator 
has  initiated  any  of  the  function  keys  (i.e.,  the  operator,  through  the  function  keys,  takes 
priority  over  the  automation  of  the  program). 

There  are  seven  function  keys  set  up  for  the  operator  to:  (1)  slop  the  program  and 
release  control  of  the  robot  controller,  (2)  stop  the  program  without  releasing  the  controller, 
(3)  plot/report  the  data  on  a  particular  specimen  gathered  so  far,  (4)  start  a  new  specimen, 

(5)  initialize/change  the  status  of  the  specimen  jars  in  JARSTATS.DAT,  or  (6)  print  errors 
encountered  thus  far. 

If  no  specimen  at  the  current  time  needs  a  weight  measurement,  the  robot  is  instructed 
to  fill  empty  specimen  jars  with  the  immersion  liquid  (i.e.,  immersion  liquids  must  reach  the 
testing  temperature  before  a  specimen  is  initialized  into  the  immersion  study).  The  flow  of 
this  module  is  illustrated  in  the  flow  diagram  in  Figure  7. 

The  operator  makes  the  decision  to  terminate  the  study  on  a  particular  specimen.  In  the 
event  of  termination,  the  operator  terminates  the  Manager  module,  removes  the  specimen, 
uses  function  key  5  to  change  the  status  of  that  particular  specimen  jar,  and  restarts  the 
Manager  module.  Once  the  jar’s  status  has  been  altered  appropriately,  the  system  is  designed 
to  recognize  the  change  and  reuse  the  jar  as  needed. 

Immersion  Testing  Subroutine:  The  immersion  testing  subroutine  is  separated  into  sev¬ 
eral  categories  or  sets  of  lower  level  subroutines:  (1)  the  primary  subroutine  for  initiating  a 
weight  measurement  on  a  specimen  and  all  data  acquisition,  (2)  the  controller  subroutines  for 
communicating  with  the  robot  controller,  setting  variables,  retrieving  values  of  variables,  and 
invoking  EZLAB  robot  subroutines,  (3)  control  routines  for  sequencing  events  for  performing 
the  immersion  weight  measurements  (i.e.,  instructing  the  robot  through  the  appropriate 
seq-uence  of  events  and  recognizing  errors  when  they  occur),  and  (4)  error  handling  routines 
which  are  executed  if  errors  are  detected  in  the  robot’s  procedure. 
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The  abstract  algorithm  for  making  a  weight  measurement  is  as  follows: 

•  The  bath  location  (index)  is  set  appropriately  in  the  robot  controller. 

•  The  program  to  take  a  weight  measurement  is  executed. 

•  The  weight  of  the  specimen  is  retrieved  from  the  robot  controller. 

•  The  file  name  for  data  storage  is  retrieved  from  DATAFILE.DAT. 

•  The  data  file  is  opened  and  the  current  date,  time,  weight,  calculated  total  number  of 
hours  in  study,  and  calculated  change  in  weight  values  are  stored  in  the  data  file. 

•  The  next  weighing  time  and  date  are  calculated  and  the  time  interval  between  weight 
measurements  is  increased,  if  appropriate.  Currently,  the  algorithm  for  increasing  the 
time  interval  takes  the  last  five  weight  measurements  of  the  study  and  averages  them. 

If  all  five  weight  measurements  are  within  +  0.002  g  of  the  mean,  then  the  time  inter¬ 
val  between  weight  measurements  is  increased  100%.  This  information  is  then 
updated  in  STUDIES.DAT  in  the  record  associated  with  the  specimen. 

•  Return  to  main  program. 


Rgure  7.  Immersion  scheduling  flow  diagram. 


Controller  and  Control  Subroutines:  The  controller  subroutines  consist  of  repetitive 
portions  of  code  primarily  used  for  sending  and  retrieving  information  to  and  from  the  robot 
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controller.  The  control  subroutines  for  running  the  immersion  test  are  the  actual  system  calls 
used  to  instruct  the  robot  through  the  test  procedure.  This  section  of  the  code  also  includes 
all  the  error  handling  and  decision  sequencing. 

Function  Key  Subroutines:  Function  keys  9  and  10  are  used  by  the  operator  to  termin¬ 
ate  the  Manager.  If  the  operator  needs  to  make  changes  in  the  Method  Controller  or  repro¬ 
gram  robot  positions,  function  key  10  must  be  used  to  release  the  control  that  the  IBM  has 
over  the  robot  controller  before  the  controller’s  keyboard  will  accept  information.  Function 
key  9  may  be  used  when  the  operator  does  not  require  access  to  the  robot  controller. 

Function  keys  4,  5,  and  6  perform  their  specific  functions  and  return  to  the  Manager’s 
control.  Function  key  4  dumps  the  text  found  in  STATUS.REP  to  the  line  printer  and 
deletes  the  file.  All  information  relating  to  errors  is  printed  on  the  computer’s  line  printer: 
(1)  which  jars  or  specimens  encountered  the  errors,  (2)  what  steps  were  taken  to  correct  the 
problem,  and  (3)  if  the  correction  routines  were  successful.  Function  keys  5  and  6  are  used 
to  initialize  and  change,  respectively,  the  flags  which  are  used  by  the  system  to  keep  track  of 
specimen  jars. 

The  two  most  frequently  used  function  key  routines  are  function  key  7  (starting  a  new 
specimen)  and  function  key  8  (plotting  data).  The  flow  diagram.  Figure  8,  illustrates  the 
algorithm  for  initializing  a  new  specimen.  Since  some  of  the  custom  specimen  jars  are  more 
reliable  than  others,  jars  are  rated  according  to  their  reliability.  In  the  process  of  initializing 
a  new  specimen  to  the  system,  each  jar  is  evaluated  sequentially  in  the  following  manner: 

•  If  rating  =  2  (less  reliable),  then  next  jar. 

•  If  the  jar  is  not  in  use  and  contains  immersion  liquid,  then  proceed  with  that  jar. 

•  If  the  jar  is  not  in  use  but  does  not  contain  the  immersion  liquid,  then  remember  as 

a  possible  jar,  but  continue  to  next  jar. 

•  If  the  jar  is  in  use  but  time  intervals  between  weighings  is  less  than  24  hours,  then 
remember  as  a  possible  jar  for  SWITCHING,  but  continue  to  next  jar. 

The  most  desirable  situation  is  that  a  jar  of  a  reliable  rating  is  not  being  used  and  con¬ 
tains  the  immersion  liquid.  If  such  a  jar  is  not  available,  then  the  next  situation  most  desir¬ 
able  is  a  jar  with  a  reliable  rating  which  is  empty,  in  which  case  the  robot  fills  the  jar,  sets 
the  timer  for  1  hour  to  allow  the  immersion  liquid  to  reach  the  desired  temperature  (i.e., 
that  of  the  water  bath),  and  moves  on  to  other  duties.  When  the  hour  is  ended,  the  robot 

signals  the  operator  and  the  initialization  procedure  continues. 

If  neither  of  the  above  two  situations  is  true  for  any  jar.  then  a  jar  which  is  currently 
used  with  a  time  interval  greater  than  24  hours  is  investigated.  First,  the  system  searches  the 
status  flags  of  each  jar  in  JARSTATS.DAT  looking  for  an  unused  jar  with  a  rating  equal  to 
2  (less  reliable).  If  such  a  jar  is  found,  the  robot  retrieves  the  first  jar  from  the  water  bath 
(with  a  rating  of  1  where  time  intervals  are  greater  than  24  hours),  removes  the  specimen, 
empties  the  jar,  fills  the  jar  with  the  immersion  liquid,  returns  the  jar  to  the  water  bath,  and 
sets  the  timer  for  1  hour.  Next,  the  robot  retrieves  the  second  jar  (with  a  rating  of  2,  and 
containing  the  immersion  liquid),  places  the  specimen  in  the  jar,  and  returns  the  jar  to  the 
water  bath.  Again,  the  robot  will  move  on  to  other  tasks,  as  appropriate,  until  the  timer 
indicates  that  1  hour  has  passed.  The  robot  signals  the  operator  and  the  initialization  proce¬ 
dure  continues. 
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Figure  8.  Initializing  immersion  study  flow  diagram. 


Once  the  robot  locates  a  jar  for  the  new  specimen,  the  system  prompts  the  user  for 
initial  information  and  makes  the  appropriate  changes  in  the  files  STUDIES.DAT, 
DATAHLE-DAT,  JARSTATS.DAT,  and  SPECS.DAT. 

The  operator  may  use  function  key  8,  at  any  time,  to  plot  the  data  collected  thus  far  for 
any  specimen  currently  registered  in  the  system.  Function  key  8  reformats  the  necessary 
information  found  in  the  specimen’s  unique  data  file,  and  uses  the  RSI  plotting  language  to 
plot  the  change  in  weight  versus  the  square  root  of  time  (Figure  9  in  Section  VII,  System 
Verification).  Control  is  returned  to  the  Manager  at  the  operator’s  request. 

Comments:  The  operator  has  the  ability,  through  the  use  of  the  function  keys,  to  over¬ 
ride  the  Manager’s  control  over  the  scheduling  of  events.  Calculated  times  for  the  next 
weight  measurements  may  not  be  precisely  met;  however,  the  times  recorded  for  each  weight 
measurement  taken  are  the  actual  time  of  the  measurements  and  not  the  calculated  times. 

VII.  SYSTEM  VERIFICATION 


Testing  and  Verification 

Two  studies  were  performed  to  verify  and  test  the  reliability  of  the  Automated  Immersion 
Testing  Robotic  System.  The  first  study  involved  performing  accelerated  immersion  tests  (the 
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immersion  liquid  was  kept  at  a  constant  temperature  of  60°C)  on  four  glass-reinforced  compos 
ite  specimens  machined  from  the  same  sheet  of  material.  Two  specimens  were  tested  on  the 
immersion  system,  while  the  other  two  specimens  were  tested  by  a  human  operator.  This  was 
done  to  compare  the  accuracy  and  to  determine  the  robot’s  ability  to  duplicate,  if  not 
improve,  the  blotting  and  weighing  routines.  Weight  measurements  on  the  specimens  were 
taken  at  the  same  time  throughout  a  3-month  period,  but  not  overnight  or  on  weekends. 

The  same  water  bath  and  sample  jar  types  were  used,  and  manual  weight  measurements  were 
made  with  the  same  model  of  Mettler  balance.  Figures  9a  and  9b  show  graphical  results  of 
specimens  tested  using  the  automated  and  manual  methods,  respectively.  A  comparison  of 
individual  data  points  indicates  that  the  automated  system  can  perform  immersion  studies  with 
the  same,  if  not  better,  accuracy  as  obtained  by  the  manual  method.  Reliability  was  demon¬ 
strated  in  that  the  robotics  system  functioned  autonomously  during  the  test  without  commit¬ 
ting  an  uncorrectable  error.  It  is  also  apparent  that  the  automated  blotting  procedure  was 
performed  reliably,  since  a  single  droplet  of  water  left  on  the  specimen  during  weighing  produ 
ces  a  well-defined  “outlier”  data  point  and  can  be  interpreted  as  such  by  the  computer  during 
analysis. 
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Rgure  9.  Immersion  test  data  of  an  epoxy  resin/aramid  fiber  laminate. 


The  second  study  involved  performing  accelerated  immersion  tests  on  four  aramid- 
reinforced  composite  specimens.  All  four  specimens  were  dried  in  a  desiccator  prior  to  the 
test.  The  only  difference  in  this  study  was  that  the  robot  was  allowed  to  run  overnight  and 
on  weekends,  while  the  operator  kept  to  the  same  schedule  as  in  the  previous  study.  By 
increasing  the  number  of  weight  measurements  and  making  measurements  during  evenings  and 
weekends,  the  Automated  Immersion  Testing  Robotic  System  was  able  to  demonstrate  an 
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improvement  in  the  precision  and  reliability  of  test  results  compared  to  the  manual  method  as 
shown  in  Figure  9b. 

Productivity  Enhancement 

A  computer  simulation  was  performed  to  illustrate  the  increase  in  productivity  of  the 
automated  test  method  over  the  manual  test  method.  The  parameters  used  for  each  simula¬ 
tion  are  listed  in  Table  1.  One  of  the  advantages  of  the  automated  test  method  for  perform¬ 
ing  immersion  studies  is  that  more  weight  measurements  may  be  taken  in  the  course  of  a 
single  study.  However,  in  order  to  compare  the  productivity  of  the  two  test  methods,  several 
constraints  and  assumptions  were  made.  Since  an  immersion  test  takes  the  same  number  of 
days  to  complete  a  single  sample  independent  of  the  test  method,  the  automated  method  was 
constrained  to  the  same  number  of  weight  measurements  per  specimen  as  the  manual  method. 
For  this  particular  simulation,  15  weight  measurements  were  taken  in  a  period  of  101  days  for 
each  specimen.  It  was  assumed  with  the  manual  method  that  an  operator  works  8  hours  per 
day  and  47  weeks  per  year  (i.e.,  2  weeks  of  holidays,  2  weeks  of  vacation,  and  1  week  of 
sick  leave)  performing  nothing  but  immersion  testing  tasks.  For  the  manual  method,  it  was 
also  assumed  that  data  handling  (i.e.,  data  entry  and  plotting/evaluating  on  a  computer)  is  per¬ 
formed  only  after  the  101-day  study  is  completed.  An  operator  requires  0.167  minute  to 
enter  the  set  of  time  and  weight  measurements  in  the  computer,  and  60  minutes  to  plot  and 
evaluate  each  specimen.  The  automated  method  w-'s  allowed  to  perform  52  weeks  per  year, 
assuming  no  downtime,  and  the  data  handling  time  was  assumed  to  be  negligible.  No  con¬ 
straints  were  put  on  the  number  of  specimens  that  the  automated  system  or  manual  system 
could  handle  at  any  time  (i.e.,  it  was  assumed  that  there  was  an  infinite  number  of  specimen 
jars  and  bath  slots).  The  manual  blotting  and  weighing  procedure  takes  approximately  2.5 
minutes  per  specimen,  while  the  automated  blotting  and  weighing  procedure  takes  approxi¬ 
mately  6.0  minutes  per  specimen. 


Tablet  SIMULATION  PARAMETERS 


Parameter 

Manuai  Method 

Automated  Method 

Time/V/eight  Measurement  (min) 

2.5 

6.0 

Working  Hours/Oay 

8,0 

24.0 

Working  Days/Week 

5.0 

7.0 

Working  Weeks/Year 

47.0 

52.0 

Data  Acquisition: 

Time/Specimen  Plotted  (min) 

60.0 

0.0 

Data  Entry  (min) 

0.167  •  No.  of  Points 

0.0 

The  simulation  for  each  test  method  was  performed  to  quantify  the  number  of  specimens 
that  could  be  studied  completely  in  one  year.  On  the  average,  a  human  operator  makes  29 
weight  measurements  in  an  8-hour  day,  while  the  Automated  Immersion  Testing  Robotic  Sys¬ 
tem  handles,  on  the  average,  237  weight  measurements  in  a  24-hour  day.  Thus,  on  a  yearly 
basis,  only  266  specimens  can  be  tested  manually  while  the  automated  system  can  test  2,775 
specimens.  Through  automation,  productivity  has  been  increased  by  1,170%. 

VIII.  FUTURE  ENHANCEMENTS 

Currently,  plans  for  extending  the  Automated  Immersion  Testing  Robotic  System  are 
underway.  Figure  10  illustrates  the  design  of  an  integrated  system  for  materials  durability 
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testing.  This  system  will  consist  of  four  robot  arms  working  simultaneously  with  two  of  the 
robots  performing  immersion  testing  as  described  in  this  report.  Plans  include  the  following 
additional  capabilities:  (1)  automated  specimen  conditioning  using  a  vacuum  oven,  (2)  auto¬ 
mated  recycling  of  specimens,  (3)  a  freeze-thaw  study  capability,  (4)  automated  thickness 
measurements,  (5)  dry  heat  studies,  (6)  nondestructive  testing,  and  (7)  a  variety  of  immersion 
temperature  conditions.  Enhanced  software  capabilities  shall  include:  (1)  sophisticated  data 
analysis,  (2)  enhanced  decision  making  capabilities  through  expert  system  development,  and 
(3)  machine  learning  capabilities. 
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Figure  10.  Durability  testing  robotic  system  layout. 


Robot  A  shall  consist  of:  (1)  a  rack  for  holding  unused  specimen  jars,  (2)  a  station  for 
immersion  liquid  disposal  and  liquid  renewal,  (3)  a  wash  station  for  washing  immersion 
specimens  prior  to  weighings  (e.g.,  if  immersion  liquid  is  a  brine  solution),  (4)  a  specimen  blot 
ter,  (5)  a  capping  station,  and  (6)  an  analytical  balance.  Robot  B  shall  consist  of  three  fixed 
temperature  block  ovens  set  at  40°C.  60°C.  and  80°C  for  maintaining  immersion  liquid  tem¬ 
peratures  and  two  capping  stations. 

To  increase  the  number  of  weight  measurements  that  can  be  performed  in  a  24-hour 
period,  the  immersion  test  procedure  will  be  performed  by  dividing  the  test  method  tasks 
between  robots  A  and  B.  Robot  B  shall  be  in  charge  of  specimen  jar  manipulation  into,  and 
out  of,  the  block  ovens,  and  removing  and  replacing  specimens  in  their  respective  containers. 
Robot  A,  once  receiving  a  specimen  from  robot  B,  shall  be  in  charge  of  blotting,  washing, 
and  weighing  procedures.  In  addition  to  the  immersion  testing  tasks,  robot  A  shall  also  be  in 
charge  of  jar  preparations  (i.e.,  cleaning,  filling,  and  disposing  of  immersion  liquids). 
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Specimens  designated  for  accelerated  aging  studies  shall  be  obtained  from  weathering 
chambers  and  environmental  test  sites,  and  will  be  placed  on  racks  and  introduced  into  the 
Durability  Testing  System  at  location  C.  Robot  C  shall  be  in  charge  of  performing  any 
further  specimen-conditioning  procedures,  taking  initial  weight  measurements,  measuring  speci¬ 
men  thicknesses,  and  handling  specimen  recycling/freeze-thaw  procedures. 

Robot  D  shall  consist  of  variable  temperature  block  ovens  for  performing  dry-heat  studies, 
and  an  NDT  system  for  obtaining  qualitative  information  on  the  moisture  content  and 
deterioration  (delamination,  crack  formation,  etc.)  of  immersion  specimens.  Several  NDT 
methods  are  under  investigation.  Location  D  has  been  designed  to  allow  system  expansion. 

In  the  future,  additional  information  may  be  obtained  by  incorporating  dynamic  mechanical 
analysis  and  chromatographic  techniques  for  examining  immersion  specimens  and  liquids, 
respectively. 

The  Durability  Testing  System  will  allow  numerous  variations  in  specimen  treatment/tesling 
conditions.  Specimens  undergoing  immersion  testing  may  be  dried  and  recycled,  desorption 
measurements  can  be  made,  or  the  effects  of  freezing  or  high  temperature  treatment  on  NDT 
and  sorption-diffusion  properties  may  be  studied.  Complete  records  will  be  compiled  for  each 
specimen  and  a  database  will  summarize  results  obtained  for  other  materials/specimens. 
Depending  upon  relative  changes  in  measurements  and  anticipated  behavior,  the  robotics  sys¬ 
tem  may  modify  a  specimen’s  test  plan  or  alert  the  user  of  unusual  behavior.  When  com¬ 
pleted.  the  durability  system  will  be  integrated  with  a  multitasking,  multiprocessor.  AI/Robotic 
work  station. 
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APPENDIX  A.  METHOD  CONTROLLER  PROGRAM  CODE 


REMOVE. JAR 

get. Jar. f roa. bath 
blot. Jar 
check. for. Jar 


BLOT. JAR 

nove.to.bloc. Jar 
lower. Jar. to. sponge 
set  timer  1  3  seconds 
wait  for  timer  1 
move. to. blot . J  ar . 2 


UNCAP. JAR 

no  module  wait 
move. to. capping. J  ar 
module  wait 
open. capping. grippers 
gp.hand 

close. capping. grippers 
repos.grlppers. around. cat 
grip. cap 
uncap 


CAP. ASIDE 

avoid. sensor 
place. cap. In. holding 


GET. JAR. FROM. BATH 
gp. hand 

move. to. bath. no. Jar 
over . cap. In. bath 
grip. cap 

raise. Jar. from. bath 
If  bath. locatlon<13  then  SO 
move. to. clearing 


CHECK. FOR. JAR 

slant-0 
Jar. flag-0 
sensorZ. front 

If  photo,  sensor. 2-0  then  50 
Jar.  flag-jar.  f  lag-fl 
slant-1 

50  sensorZ.back 

If  photo. sensor. 2-0  then  100 
Jar.  flag-jar. flag+1 
slant-2 

100  move. to. sensor 1 
sensor 1. front 

If  photo. sensor-O  then  150 
J  ar . f lag- j  ar . f lag+ 1 
8lant-3 

150  sensor 1. back 

If  photo. sensor-0  then  200 
Jar. flag- jar. flag+1 
8lant-4 

200  if  slant-O  then  250 
250 


UNCAP 

no  module  wait 
turn. to. uncap 
module  wait 
robot. up. 6mm 
robot. up. 8mm 
robot. up. 10mm 
robot. up. 12mm 
Ilf t. cap 


PLACE. CAP. IN. HOLDING 

move. to. cap. holding 
lower. cap 


GET. SAMPLE. FROM. JAR 

■ove. to. capping. forceps 
forceps,  hand 
orient. Jar 

ready. forceps. for. saaple 
close. capping. grippers 
set  tlaer  1  2  seconds 
wait  for  tlaer  1 
open. capping. grippers 
lower. forceps. to. saaple 
grip. saaple 
set  tlaer  1  2  seconds 
wait  for  tlaer  1 
llft.s 

set  tlaer  1  2  seconds 
wait  for  tlaer  I 
llft.saaple.out.of . Jar 


gp.hand 

aove. to. cap. holding 

ORIENT. JAR 

lower. forceps 
open. capping. grippers 
open. forceps. orient 
turn. to. orient 


CHEOC.  FOR.  SAMPLE.  FROM.  JAR  GET.  SPECIMEN 


saaple. flag^O 
clear. beam. sensor 
aove. to. sensor . saaple 
set  tlaer  1  2  seconds 
wait  for  tlaer  1 
If  beaa. sensoroQ  then  30 
saaple. f lag* 1 
30  clear. beaa. sensor 


raise. ara. above. holding 

forceps. hand 

aove. to. capping. forceps 

orient. Jar 

forceps. hand 

aove. to. capping. forceps 

dryer. on 

blot. forceps. tips 

aove . towards . blotter 

blot. forceps 

dryer. off 

to. sample. holder 

get. sample. from. holder.  1 

check. for. sample. from. blotter 


BLOT. FORCEPS. TIPS 
forceps. hand 

aove. to.  Jar. blot. forceps 
blot. tips 

set  tlaer  1  2  seconds 
wait  for  tlaer  1 
aove. to. Jar. blot. forceps 


BLOT. FORCEPS 

forceps. hand 

blot. Inside. forceps 

aove. In. blotter 

set  tlaer  1  10  seconds 

wait  for  tlaer  1 

aove. towards. blotter 


BLOT. INSIDE. FORCEPS 


GET. SAMPLE. FROM. HOLDER.  1 


forceps. hand 


saaple. In. holder 


23 


■ove. to. saaple. blotter 
If  .blot.f. flag-1  then  5 
■ove. to. left. blotter 
■ove.down. to. blotter 
goto  10 

5  aove. to. left. blotter.  2 
■ove.down. to. blotter. 2 
10  close. forceps 

set  tlaer  1  1  seconds 
wait  for  tlaer  1 
forceps. hand 

If  blot.f.flag-I  then  13 
■ove. to.  left. blotter 
goto  20 

15  we.  to.  left,  blotter.  2 
20  ■ove. to. saaple. blotter 


BLOT. SAMPLE 

blot. f. flag-0 

blot. flag-0 

error. blot-0 

blot . saaple. center 

If  error. blot>0  then  100 

put. saaple. in. holder. 1 

blot. Inside. forceps 

get. saaple. f roa. holder.  2 

blot . saaple. lef t 

if  error. blot>0  then  100 

put. saaple. in. holder. 2 

blot.f . flag-1 

blot . Inside. forceps 

blot.f. flag-0 

get. saaple. f roa. holder. 3 

blot. saaple. right 

if  error. blot>0  then  100 

put. saaple. in. holder. 3 

get. saaple. f roa. holder.  1 


OPEN. BLOTTER 

error. blot-0 
count-0 

10  count-count-**! 

if  count>5  then  50 
blot. open 

if  blotter. switch-1  then  10 
goto  100 

50  error. blot-1 

100 


grip. saaple 

to. saaple. holder. out 


CHECK. FOR. SAMPLE. FROM. BLOTTER 

saaple. flag-0 
■ove. to. sensor. sample 
set  ti^er  1  2  seconds 
wait  for  tlaer  1 
if  beaa. sensor-0  then  30 
saaple. flag-1 
30  clear. beaa. sensor 


BLOT. SAMPLE. CENTER 

hold.coount-1 

aove. to.  saaple. blotter 

lower . saaple. in. blotter 

aodule  wait 

aove. saaple. right 

blot. flag-1 

close. blotter 

if  error. blot-1  then  50 

set  tlaer  1  1  seconds 

wait  for  tiaer  1 

blot. flag-2 

open. blotter 

if  error. blot-1  then  50 

lower,  saaple. in. blotter 


CLOSE. BLOTTER 

error. blot-0 
count -0 

5  count-count-*-! 

if  count>5  then  50 
blot. close 

if  blotter. swltch-0  then  5 
goto  100 

50  error. blot-1 
100 
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PUT. SAMPLE. IN. HOLDER. I 


GET. SAMPLE. FROM. HOLDER.  2 


to. saaple . holder 
■ample. In. holder 
forceps. hand 
to. sample. holder 


PUT. SAMPLE. IN. HOLDER. 2 

to. sample. holder . 2 
sample. In. holder. 2 
forceps. hand 
to. sample. holder. 2 


PUT. SAMPLE. FROM. HOLDER. 3 

to. sample. In. holder. 3 
sample. In. holder. 3 
forceps. hand 
to. sample. holder. 3 


BLOT. SAMPLE. RIGHT 

hold.count*3 

to. blot ter. outside 

outside. right 

blot. f lag- 1 

close. blotter 

if  error. blot-1  then  50 

set  timer  1  1  seconds 

vai*'  for  timer  1 

blot. flag-2 

open. blotter 

If  error. blot-1  then  50 

to. blotter. outside 


WEIGH. SAMPLE 

If  weight. type- 1  then  1 
move. to. balance. out 


to. sample. holder. 2 
sample. in. holder. 2 
grip. sample 
to. sample. holder. 2 


GET. SAMPLE. FROM. HOLDER.  3 

to. sample. holder. 3 
sample. in. holder. 3 
grip. sample 
to. sample. holder. 3 


BLOT. SAMPLE. LEFT 

hold. count-2 

to. blotter. inside 

inside. right 

blot. f lag- 1 

close. blotter 

if  error. blot-1  then  50 

set  timer  1  1  seconds 

wait  for  timer  1 

blot. flag-2 

open. blotter 

if  error. blot-1  then  50 

to. blotter. inside 


TAKE. WEIGHT 

tare. balance 
weigh. sample 


OPEN. BALANCE 

count-0 

5  count-count+1 
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goto  2 

1  Bove. to. balance 

2  error. balance-0 
door . open . f lag- 1 
door. close. flag-0 
open. balance 

if  error. balance>0  then  100 
If  weight. type- 1  then  3 
sample.  in. balance. out 
goto  4 

3  sample . in.  balance 

4  forceps. hand 

7  move. to. balance. out 

8  door. close. flag-1 
close. balance 

if  error. balance>0  then  100 

9  set  timer  1  10  seconds 
wait  for  timer  1 

if  wleght. type-0  then  10 
6  mw.  sample-weight,  sample 
goto  20 

10  lw.sample(bath. locatlon)- 
welght. sample 

if  lw.sampie(bath. locatlon)- 
-999  then  20 
20  door. open. flag-2 
open. balance 

if  error. balance>0  then  100 
sample. in. balance. out 
grip. sample 
move. to. balance. out 
door. closed. flag-2 
30  close. balance 
100 


CHECK. FOR.  SAMPLE. FROM. BALANCE 

sample. flag-0 

clear. beam. sensor 
move. to. sensor. sample 
set  timer  1  2  seconds 
wait  for  timer  1 
if  beam. sensor-0  then  50 
temp. weight-weight. sample 
if  temp.weight<0. 1  then  45 
pump. on 
open. balance 
move. to. balance 
forceps. hand 
sample. in. balance 

grip. sample 


if  count>5  then  50 
door. open 

if  door.status-l  then  5 
goto  100 

50  if  door. open. flag-2  then  66 
error . balance- 1 
goto  100 

66  error. balance-2 
100 


CLOSE. BALANCE 
count-0 

5  count-count+1 

if  count>5  then  50 
door. close 

if  door. status-0  then  5 
goto  100 

50  if  door. closed. glag-2  then  75 
error. balance-3 
goto  100 

75  error. balance-4 
100 


PUT. SAMPLE. IN. JAR 

lift. sample. out. of .Jar 
Iff t. halfway 
open. forceps. slightly 
move. to. capping. forceps 


GET. CAP 

dryer. on 

blot. forceps. tips 
get. cap. from. holding 
avoid. sensor 
move. to. capping. cap 


CAP. JAR 
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cap*  test^O 
cap.saaple. Jar 


■ove. to. balance 
puap.of f 

■ove. to. sensor . saaple 
set  timer  1  2  seconds 

wait  for  timer  1  GET. CAP. FROM. HOLDING 

If  beam. sensor>0  then  50 

45  sample. flag*l  gp.hand 

stop. immersion. Jar( bath. location)-!  move. to. cap. holding 

50  clear. bean. sensor  lower. cap. 2 

grip. cap 

move. to. cap. holding 


CAP. SAMPLE. JAR 

close. '  spping. grippers 
move. to. capping. cap 
place. cap. on. J  ar 
no  module  wait 
turn. capper. cap 
module  wait 
robot. down. 4mm 
robot .  do%Ri*  6nim 
robot. down. Smm 
robot * down lOmm 
robot. down* 12mm 
set  timer  1  3  seconds 
wait  for  timer  I 


CHECK. FOR. JAR. 2 

slant-0 
Jar. flag-0 
sensor!. fron 

if  photo. sensor-0  then  50 
Jar. flag-jar. flag+! 
slant-3 

50  sensor!. back 

if  photo* sensor-0  then  !00 
Jar.  flag-jar.  flag-*-! 
slant-4 

!00  move. to. sensor! 
sensor 2. back 

if  photo. sensor. 2-0  then  !50 
Jar. flag-jar.  f  lag-M 
slant-2 

150  sensor2. front 

if  photo. sensor. 2-0  then  200 
Jar. flag-jar. flag+I 
slant-! 

200  move. to. blot. Jar 


GET. JAR 

open. capping. grippers 
move. to* capping. Jar 
check. for. Jar. 2 


REPLACE. JAR 

move. to. blot. Jar 
dryer. off 

put. sample. Jar. in. bath 

clear. all 

gp.hand 


PUT. SAMPLE. JAR. IN. BATH 

if  bath.location<!3  then  10 
move. to. clearing 
!0  move.  to. bath. Jar 
lower. Jar. in. bath 
gp.hand 

move. to.  bath.no. Jar 
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REGRIPPING 


REGRIP. JAR 


clear. sensor. 2  clear. all 

regrip. jar  boxl 

•ore. to. blot. jar  box2 

check. for. jar  gp.hand 

box3 

close. gp.hand 

PUT.JAR.IN.BATH  box4 

box5 

■ove. to. blot. jar  box6 

dryer. off  box? 

put. sample. jar. In. bath  box8 

clear. all  box9 

gp.hand  boxlO 

boxl  1 
boxl2 

ERROR. BLOT. ROUTINE  box 1 1 

box4 

lower. sample. in. blotter  boxl 3 

move. to. sample. blotter  gp.hand 

boxl4 


grip. cap 
boxlS 
clear. all 


JAR. HANG. 2 

lift. halfway 
grip. sample 

close. capping. grippers 
move. to. capping. forceps 


NEXT. CAP 

get. extra. cap 
avoid. sensor 
place. cap. In. holding 
get. cap. from. holding 
avoid. sensor 
move. to. capping. cap 


GET. EXTRA. CAP 


UNCAPPED. JAR. ASIDE 


e.capl 

get. jar. from. capping. no. cap 

e.cap2 

clear. blot 

gp.wide 

put. jar. aside. no. cap 

e.cap3 

e.cap4 

grip. cap 

GET. JAR. FROM. CAPPING. NO. CAP 

e.cap3 

e.cap2 

gp.hand 

e.capl 

move. to. capping. to. grip,  jar 

move. to. grip. jar 

open. capping. grippers 

grip. jar 

lift. jar. no. cap 
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PUT. JAR. ASIDE. NO. CAP 


CAP. ASIDE 


regrlpl 

regrlp3 

gp.hand 

regrlpl 


FILL. JAR 

V.  pmp.  on 
Bove. to. dispenser 
valve. on 

set  tlner  1  30  seconds 
wait  for  tloer  1 
valve. off 
w.  pump. off 

move. away. from. dispenser 


avoid. sensor 
place. cap. In. holding 


MOVE. TO. DISPENSER 

over. to. dispenser 
In. to. dispenser 
up. to. dispenser 


MOVE. AWAY. FROM.  DISPENSER 

In. to. dispenser 
over. to. dispenser 


PUT. JAR. IN. CAPPING. NO. CAP 

move. to. capping. to. grip. Jar 
open. capping. grippers 
move. to. grip. J ar 
gp. hand 
lift. cap 

close. capping. grippers 


SET. SAMPLE. ASIDE 

clear . beam. sensor 
blot. sample. center 
put. sample. In. holder.  1 
gp.hand 


EMPTY.  JAR 

move. to. beaker 

mb.  2 

mb.  3 

mb.  4 

mb.  5 

mb.  6 

set  timer  1  3  seconds 
wait  for  timer  1 

mb.  4 
mb.  3 
mb.  2 

move. to. beaker 
gp.hand. Jar 
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APPENDIX  B.  MANAGER  MODULE  PROGRAM  CODE 


80  ;Ialtlalls«tlon  of  Tarlables 

100  0K$-*0K"+CHR$(13) 

120  IIOTOK$-"NOTOK"+CHR$(13) 

140  ACIC$-"ACK“+CHR$(13) 

160  LOOP-0 

180  STARTFLAG-0 

200  STARTBATH-0 

220  STARTTIME$-"00;00:00" 

240  JAR. ASIDE. FLAG-0 

280  DIM  DAYS(12),TESTW#(5),JAR(30),LAST$(5) 

300  DAYS(l)-31;DAYS(2)-28:DAYS(3)-31:DAYS(4)-30:DAYS(5)-31:DAYS(6)-30 

320  DAYS(7)-31:DAYS(8)-31:DAYS(9)-30:DAYS(10)-31 :DAYS( 1 1 )-30 :DAYS( 12)-31 


340 

360 

380 

400 


420 

440 


460 

480 


;IiiltlallMtloa  of  ro—inl  r  ■tton  porta  and  data  fllea 
OPEN  “COMl:1200,E,7,l,8S,DS0,LF"  AS  #1 

OPEN  "STDDIES.DAT"  AS  #2  LEN-53 

FIELD  #2,  3  AS  BATH$,  7  AS  IW$,  8  AS  LTIME$,  10  AS  LDATE$,  7  AS 
INTR$»  8  AS  NTIMES,  10  AS  NDATE$ 


:Data  file  STDDIES.DAT,  lengtl^SS 

;Piirpoae:  Keepa  track  of  current  apeclaena  undergoing  Inneraion 
Iteating 


:EATH$ 

Bath  location 

3 

Integer 

;iw$ 

Initial  weight 

7 

Real 

;LTIME$ 

Laat  neighing  tlaw 

8 

##:##:## 

;L0ATB$ 

Laat  neighing  date 

10 

####:##:## 

;IHTE$ 

Current  tine  Internal 

7 

##:##:## 

:MTI11E$ 

■ezt  neighing  tine 

8 

##:##:## 

:8DATE$ 

■ezt  neighing  date 

10 

####:##:## 

OPEN  "JARSTATS.DAT"  AS  #3  LEN-13 

FIELD  #3,  2  AS  RATINGS,  2  AS  FU$,  7  AS  CIS,  2  AS  WW0$ 


;Data  file  JARSTATS.DAT,  lengtli-13 

;Pnrpoae:  Statna  rating  for  all  Jara  in  vater  bath 


;RATIB6$ 

1-  0  to  24  hr  neighing  intemala 

2 

Integer 

e 

9 

2-  25  >  hr  neighing  intemala 

;PUS 

Jar  In  nse/not  in  nae 

2 

1/0 

;ci$ 

current  tine  internal 

7 

####:## 

;B0O$ 

Jar  nith/wlth  out  water 

2 

1/0 

OPEN  “STATUS. REP"  AS  #5  LEN-128 

FIELD  #5,  2  AS  TYPES,  3  AS  BS,  7  AS  TS,  116  AS  MESSS 

:Data  file  STATUS. REP,  lengtb-128 
;Purpoae:  Error  diagnoatica  data  file 

; TYPES  Type  of  error,  fatal/non-fatal  2  0/1 
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Bath  location  # 
Tlae  of  error 
Error  Mesaage 


3  Integer 

7  ##:##:## 

116  String 


;»$ 

;T$ 

;11BSS$ 


500  LAST(2)-53 

520  LAST(3)-13 

540  LAST(5)-128 

560  PRINT  #1,  "ENQ’+CHRSCn) 

560  GOSUB  5680  ;Valt  for  controller  to  ackaovledge 


600 

;  Initialization  of  Fnnctloa  keys 

620 

ON  KETCIO)  GOSUB  6480 

;Stop  prograa  and  release  robot  control 

640 

ON  KET(9)  GOSUB 

6540  ; 

Stop  prograa,  do  not  release  robot  control 

660 

ON  KEY(8)  GOSUB 

15380 

;Plot  data 

680 

ON  KET(7)  GOSUB 

15760 

;Start  new  speclaen 

700 

ON  KET(6)  GOSUB 

21640 

: Initialize  data  file  JARSTATS.DAT 

720 

ON  KZY(5)  GOSUB 

14520 

;Inltlallze/reinltlallze  Jar  array 

740 

ON  KEY(4)  GOSUB 

22940 

; Print  status  report 

760 

KEYCIO)  ON 

780 

KEY(9)  ON 

800 

KEY(8)  ON 

820 

REY(7)  ON 

840 

KEY(6)  ON 

860 

KEYCS)  ON 

880 

KEY(4)  ON 

900 

KEY(IO)  OFF 

920 

KEY(9)  OFF 

940 

KEY(8)  OFF 

960 

KEY(7)  OFF 

980 

KEY(6)  OFF 

1000 

KEY(5)  OFF 

1020 

KEY(4)  OFF 

1021  ;Fanctlon  Key  rontlnes 

1022  fKey  (10) — >TerBlnate  prograa  and  release  controller 

1023  ;Key  (9)  — >Tenlnate  prograa 

1024  ;Key  (8)  — >Plottlng/ report  generation 

1025  ;Key  (7)  — >Start  nev  speclaen 

1026  ;Key  (6)  — >Inltlallae  JARST4TS.DAT 

1027  ;Key  (5)  — >Inltlallse/lelttltlallze  Jar(7)  array 

1028  ;Key  (4)  — >Prlnt  Error  Messages 
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;IfADi  MODOLB 

1080  ;Oetenliie  if  speclaen(«)  need  weight  aeuareaente  taken 
1140  LOOP-LOOP+l 

1160  {Open  STDDISS.DiAT  file  and  teat  next  aelght  date  and  tine  of  each 

1220  IF  LOF(2)-0  GOTO  1460  ;Teat  fnnctlon  keys 
1240  FOR  I-l  TO  (LOF(2)/LAST(2)) 

1260  GET  #2,1 

1280  Q>T$*DATE$  ;Ciirrent  date 

1300  CDATE$-(MID$(CDT$,7,4))+*:*+(MID$(CDT$,l,3))+“:"(MID$(CDT$,4,2)) 

;Fonat  Corrent  date:  Tear :lionth: Day 
1320  CTH$-TIME$  ; Corrent  tlae 

1340  IF  CDATE$>NDATE$  THEN  GOSUB  1920  ;Take  oelght  aeaanreMnt 

1360  IF  (CDATE$-NDATE$)  AND  (CTM$>-NTIME$)  THEN  GOSUB  1920 

1380  NEXT  I 

1420  ;Te8t  function  keya 

1460  KETCIO)  ON 

1480  KEY(9)  ON 

1500  KET(8)  ON 

1520  KEY(7)  ON 

1540  KEY(6)  ON 

1560  KEY(5)  ON 

1580  KET(4)  ON 

1600  KEY(IO)  STOP 

1620  KEY(9)  STOP 

1640  KEY(8)  STOP 

1660  KEY(7)  STOP 

1680  KEY(6)  STOP 

1700  KEY(5)  STOP 

1720  KEY(4)  STOP 

1740  ;Te8t  for  a  new  speclnen  waiting  to  be  Initialised 

1760  ;Proceed  with  Initialization  If  appropriate 

1800  IF  (STARTFLAG-1)  AND  (TIME$>STARTTIME$)  THEN  GOSUB  19640 :LOOP-0 : GOTO 
1080 

1820  IF  LOOP-2  THEN  GOSUB  14840:LOOP-0  ;If  nothing  to  do,  fill  enpty  Jars 
1840  GOTO  1080  ;  Restart  Main  Module 

1860  CLOSE  #1,#2,#3,#4,#5:  END 
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;DtfKESl(»  TSST  SUBSOUTDK 


1920  ;IaBerslon  Teatlog  procedure 

2040  :Take  eclght  aeaeareMat  of  apeciaeii 

2080  VABNAME$-’BATH.LOCATION‘‘ 

2100  BATH-VAL( BATH$ ) 

2120  VARVALUE-BATH 

2140  GOSUB  6000  :Set  BAIH.LOCATIOS  to  BATH  in  controller 
2180  VARNAME$-''WEIGHT.TYPE*' 

2200  VARVALUE-l 

2220  GOSUB  6000  ;Set  HEIGBT.TTPE  to  1  In  controller 

2260  IF  JAR(BATH)-1  GOTO  1380  ;If  error  flag  aet,  then  aoTe  on  to  next  Jar 
2280  GOSUB  6720  ;Take  nelght  ■eaaureaent 

2300  VARNAME$-''MW.  SAMPLE** 

2320  GOSUB  6360  ;Get  ▼aloe  of  M0.  SAMPLE  (nelght  of  apecleen) 

2360  WEIGHT#-VARVALUE 

2400  ;Locate  apecleen  data  file  and  update  Infomatlon 
2440  OPEN  **DATAFILE.  DAT**  AS  #4  LEN-12 

2460  FIELD  #4,  12  AS  FILES 

;l>ata  file  DAXAFILB.DAT,  length-12 

;Pnrpoae:  Llata  file  naeea  aaaoclated  vlth  each  Jar  In  hath 

;FILB$  File  naae  and  extenalon  12  String 

2480  GET  #4, BATH 

2500  CLOSE  #4 

2540  ;Open  data  file 

2580  OPEN  FILES  AS  #4  LEN-48 

2600  FIELD  #4,  10  AS  DDATES,  8  AS  DTIMES,  10  AS  DHRSS ,  10  AS  DWEIGHTS,  10 
AS  DCHWS 


;Data  file  *flle*.0AT,  lengtb-48 
;nirpoae:  Unique  data  file  for  each  apeclnen 


DDAXB$ 

Date  of  neighing 

10 

##:##:#### 

DTDfBS 

Tine  of  neighing 

8 

##:##:## 

DHRSS 

Total  houra  In  atndy 

10 

real 

DHBIGHTS 

Height  of  apeclnen 

10 

real 

DGHHS 

Change  In  nelght 

10 

real 

2620  GET  #4,(L0F(4)/48) 

2640  CHRS-VAL( DHRSS)  ;BBnro  In  atndj 

2660  CDTS-DATES  jCnrrent  date 

2680  CDATES-(MID$  (  CDTS  ,7,4)  )+**-**+(MIDS  (  CDTS  ,1,3)  )+**-**+(  MIDS  (  CDT$  ,4,2)) 

;Refomat  date 

2700  CHW-WEIGHT#-VAL(IWS) 

;Set  date,  tine,  nelght  and  change  la  nelght  of  apeclaen 

2740  LSET  DDATES-CDTS 

2760  LSET  DTIME$-CTMS 

2780  RSET  DWEIGHTS-STRS(WEIGHT#) 
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2800  RSET  l>CHtf$-STR$(CBW) 

2820  ;G«t  l««t  velthi^  Clae  frcw  file 

2840  LH-VAL(MID$(LTIME$,1.2))  ; Hours 

2860  LM-VAL(MID$(LTIME$,4.2))  ;Mlnute8 

2880  LS-VAL(MID$(LTIME$,7.2))  ;Secood8 

;6et  correat  tlae 
2900  CH-VAL(MID$(CTM$.1,2)) 

2920  CM-VAL(MIO$(CTM$,4,2)) 

2940  CS-VAL(MID$(CTM$,7,2)) 

2980  ;Calcalete  aoabcr  of  hoars  in  carrent  stady 
3020  IF  CDATE$*LDATE$  GOTO  3800  ;If  carrent  day  and  Che  last  day  a 
neighing  vas  aade  are  egaal 

3040  ;CalcalaCe  nunber  of  hours  in  days  past 

3060  LD-VAL(MIO$(U)ATE$,9,2))  :Last  day 

3080  CI>-VAL(MIO$(CDATE$,9,2)  -.Carrent  day 

3100  LM0«VAL(MID$(LDATE$.6.2)  ;laat  aonth 

3120  CM0-VAL(MI0$(CDATE$,6.2)  ;Current  noath 

3160  TH-23;  TM-59;  TS-59 

3220  THRS-(TH-LH)>(TM-LM)/604-(TS-LS)/3600  -.Huaber  of  hours  left  in  last 

day  a  aelghlng  ess  aade 

3240  IP  (MID$(CDATE$,1,4))-(MID$(LDATE$,1,4))  GOTO  3560  ;If  Che  year  has 

aoc  changed 

3280  THRS-THRS'*-24*(DATS(LMO)-'LO)  ;Huaber  of  hours  left  In  the  last  nonth  a 
neighing  naa  ande 
3300  TM0«U1(H1  ;next  aonth 

;CalcalaCe  noaber  of  hours  left  In  the  reaalnder  of  the  year  of  Che 
last  aelghlng  aade 

3320  WHILE  TM0<-12 

3340  THRS-THRS+24*(DAYS(TM0)) 

3360  TM0-TM(H1 

3380  WEND 

3400  ;Calcalate  nonber  of  hours  In  carrent  year  past 
3420  TMO-1 

3440  WHILE  TM0<CM0  ;Wlille  calculated  aonth  Is  less  than  current  aonth 
3460  THRS-THRS+24*(DATS(TMO)) 

3480  TMO-TMCfl 

3500  WEND 

;CalcalaCe  noaber  of  hoars  post  la  current  aonth 
3520  THRS-THRS+24*(CD-1) 

3540  GOTO  3940  ; Calculation  finished 

;Tear  has  not  changed 

3560  IP  CMO-LMO  GOTO  3740 

3580  THRS"THRS-f24*(days(LH0)-L0}  ;Hoars  left  in  aonth  of  last  neighing 

3600  TM0-LM04-1 

3620  WHILE  TM0<CM0 
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3640 

3660 

3680 

3700 

3720 


3740 

3760 

3780 

3800 

3820 

3840 

3860 

3880 

3900 

3920 

3940 

3960 

3980 

4000 

4060 

4080 

4100 

4120 

4140 

4160 

4180 

4200 

4220 

4240 

4260 

4280 

4300 

4320 

4340 

4360 

4380 

4400 

4420 

4440 

4460 

4480 

4300 

4320 

4340 

4360 

4380 

4600 

4620 

4640 


THRS-THRS+2  4* ( DATS ( TMO ) ) 

TMO-TMO+1 

WEND 

THRS-THRS+24*(CI>-1 ) 

GOTO  3940  :Calaiilatloa  finished 

;lfi>ath  has  not  changed 

THRS«THRS-t’24*(CD-LD-l )  (Days  past  In  cnrrent  aonth 
GOTO  3940  ;Calcnlatlon  finished 

;Day  has  not  changod 

IF  CS<LS  THE  CS-CS•^60:  CM-CM-1 
IF  CS>-LS  THEN  DS-CS-LS 
IF  CM<LM  THEN  CM-CM^60:  CH-CH-1 
IF  aO-LM  THEN  DM-CM-LM 
DH-CH-LH 

THRS-DH-i-DM/60-»-OS/3600  ;Calctaatlon  finished 

;  Store  new  Infomatlon 

8SET  DHRS$-STR$(THRS+CHRS) 

PUT  #4,  (LOF(4)/48+l) 

;Calcnlate  next  neighing  tlae  and  date 

;Increaent  tine  Internal  between  weighings  If  appropriate 

IH-VAL( MID$ ( INSTR$ ,1,4)) 

IM-VAL( MID$ ( INSTRS ,6,2)) 

NH-VAL( MID$ ( CTM$ , 1 , 2 ) ) 

NM-VAL( MID$ ( CTM$ , 4 , 2 ) ) 

NS-VAL( MID$ ( CTM$ ,7,2)) 

NY-VAL(MID$( CDATES ,1,4)) 

NMO-VAL( MID$ ( CDATE$ ,6,2)) 

ND-VAL(MID$ ( CDATES ,9,2)) 

CT"(L0F(4) A8-4)  ;Looklng  at  last  fine  weight  neasurenents 
IF  CT<1  GOTO  4640  ; First  weighing 

oi 

TESTAV#-0 

FOR  CC-CT  TO  (L0F(4)/48) 

GET  #4,  CC 

TESTH# ( C)-VAL( DWEIGHTS ) 

TESTAV#-TESTAV#+TESTW#( C) 

C-C+1 
NEXT  CC 
AWl-TESTAV#/5 
FLAG-0 

FOR  C-1  TO  5 

IF  ABS(TESTAV#-TESTW#(C))>0.0002  THEN  FLAG-FLAG+1 
NEXT  C 

IF  FLAG>1  GOTO  4640  ;Do  not  increase  weight  tine  increment 

TM-I)fMM:TH-0  ;Doable  tine  increaent 

IF  TM>-60  THEN  TH-TH+1 :TM-TM-60 

TH-TH-HH+IH 

IH-TH 

IM-TM 

GET  #3, BATH 
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4660  rr$-STR$ ( IH ) : TT-LEN( TT$ )-l : 1H$-MID$ ( TT$ , 2 , TT) 

4680  ON  TT  GOSUB  4720 »4740, 4760. 4770 

4700  GOTO  4780 

4720  IH$-"000"-HH$:  RETURN 

4740  IH$-"00“'MH$ :  RETURN 

4760  IH$-"0"-HH$ :  RETURN 

4770  RETURN 

4780  TT$-STR$(IM):TT-LEN(TT$)-l:IM$-MID$(TT$,2,Tr) 

4800  IP  TT-1  THEN  IM$-“0”+IM$ 

4820  RSET  CI$-IH$-»-" :  "+IM$ 

4840  PUT  #3, BATH 

4860  LSET  LTIME$-CTM$ 

4880  LSET  LDATE$-CDATE$ 

4900  RSET  INTR$-IH$+" : "+IM$ 

4920  TM-NM+IM:  TH-0 

4940  IF  TM>-60  THEN  TH-TH+1 :  TM-TM-60 

4960  TH-TH+NH+IH 

4980  IP  TH<-23  THEN  NH-TH:  NM-TM:  GOTO  5180 

5000  WHILE  (TH>23)AND(NIKDAYS(NMO)) 

5020  ND-NIHl 

5040  TH-TH-24 

5060  WEND 

5080  IP  TH<-23  GOTO  5180 

5100  NMO-NMO+1 

5120  ND-0 

5140  IP  NM0>12  THEN  NY-NY+1 :NM0-1 

5160  GOTO  5000 

5180  Tr$-STR$<NY);  TT-LEN(TT$)-1 :  NY$-M1D$(TT$ ,2 ,TT) 

5200  TT$-STR$(NM0);  TT-LEN(TT$)-1 :  NMO$-MID$(TT$,2,TT) 

5220  IP  TT-1  THEN  NMO$-"0“+NMO$ 

5240  TT$-STR$(ND):  TT-LEN(TTS)-1 ;  ND$-MID$(TT$ ,2,TT) 

5260  IP  TT-1  THEN  ND$-"0*'+ND$ 

5280  TT$-STR$(NH):  TT-LEN(TT$ )-l :  NH$-HID$(TT$ ,2,TT) 

5300  IP  TT-1  THEN  NH$-"0"+NH$ 

5320  TT$-STR$(NM):  TT-LEN(TT$)-1 :  NM$-MID$(TT$ ,2 .TT) 

5340  IP  TT-1  THEN  NM$-’0"+NM$ 

5360  TT$-STR$(NS) :  TT-LEN(TT$)-1 :  NS$-MID$(TT$,2.TT) 

5380  IP  TT-1  THEN  NS$-"0“+NS$ 

5400  LSET  NDATE$+"-"+NHO$+"-"+ND$ 

5420  LSET  NTIME$-NH$+'':“+NM$+";"-»-NA$ 

5440  PUT  #2,1 

5460  CLOSE  #4 

5480  RETURN 
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;OOHTSOLZjaL  SUBEOOTIIBS 


5640  ; Controller  leady? 

5680  MESSAGE$-'‘’' 

5700  WHILE  (MESSAGE$<>ACR$) 

5720  GOSUB  5840 

5740  WEND 

5760  RETURN 

5800  ;Aqttlre  nessagee  fron  controller 

5840  MBSSAGE$-"" 

5860  CHARIN$«INPUT$(1,#1) 

5880  IP  CHARIN$-CHR$(10)  THEN  RETURN 

5900  MESSAGE$-MESSAGE$-«'CHARIN$ 

5920  GOTO  5860 

5960  ;Set  the  Tariable  VARH4MB  to  the  ralue  of  VARVALOR  in  the  controller 
6000  PRINT  #1,  VARNAME$+"-"+STR$(VARVALUE)+aa$*(13) 

6020  GOSUB  6120 

6040  RETURN 

6080  ;Walt  for  response  fron  controller 

6120  MESSAGES-"" 

6140  WHILE  (MESSAGE$<>OK$)AND(MESSAGE$<>NOTOK$) 

6160  GOSUB  5840 

6180  WEND 

6220  ;Test  If  cnnniinf cations  problen 

6260  IF  MESSAGE$-CHR$(10)+"NOTOK"  THEN  RETURN  1860 

6280  RETURN 

6320  iRetrlere  ralue  of  VARNAMK  fron  controller 

6360  PRINT  #1,  "?  “+VARNAME$+CHR$(13) 

6380  GOSUB  5840 

6400  VARVALUE-V AL( MID$ ( MESSAGES , 3 , LEN ( MESSAGES ) - 1 ) ) 

6420  GOSUB  6120 

6440  RETURN 

6480  ;Stop  progran  and  disconnect  connnnlcatlons 

6500  PRINT  #1,  "BYE"+CHRS(13);  CLOSE  #1  ,#2,#3,#4,#5:  RETURN  1860 

6540  (Stop  progran,  do  not  disconnect  cnnniinl rations 

6560  CLOSE  #1,#2,#3;  RETURN  1860 
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;OOMTBOL  SDBBOOTIOS  POK  SDIOnK  DtfESSIOl  TEST 


6720  ;Tak«  «el(ht  aeasiiraaaBt 

6760  GOSUB  7160  ;6et  appropriate  speelaen  jar,  aad  ancap  jar 
6780  GOSUB  7480  ;Gat  speclan  froa  jar 

6800  GOSUB  7960  ;Blot  apaclaaB 

6820  GOSUB  8260  jHakc  velcht  ■eaaoreaeat,  return  apeclaett  to  jar 

8840  PROGNAMES- "DRYER. ON*  {dry  blotter 

8860  GOSUB  9060  ;Kilaite  prograa 

8880  GOSUB  8640  :Cap  jar  and  return  to  enter  bath 

8900  RETURN 


6940 

6980 

7000 

7020 

7040 

7060 

7080 


; Initialise 

GOSUB  7140 
GOSUB  7480 
GOSUB  8260 
CTM$-TIME$ 
GOSUB  8640 
RETURN 


a  new  apeclaen 

Get  appropriate  apeclaen  jar,  and  nncap  jar 

Get  new  apeclaen  froa  apeclaen  holder 

Take  Initial  weight  aeaanreaent,  return  apeclaen  to  jar 

Record  Initial  tlae 

Cap  jar  aad  return  to  water  hath 


7120  ;Get  appropriate  apeclaen  jar,  and  uncap  jar 
7160  PROGNAMES-" REMOVE. JAR" 

7180  GOSUB  9060  ;Sxlcnte  progran  In  controller 

7200  VARNAME$-" JAR.  FLAG"  ;Rrror  flag  for  gripping  jar  properly 

7220  GOSUB  6360  :Get  Taloe  of  JAR.FLAC 

7240  IP  VARVALUE>0  THEN  GOSUB  9260  ;Regrlp  jar  properly 

7260  PROGNAME$-*UNCAP.JAR" 

7280  GOSUB  9060 

7300  VARNAMES- 'PHOTO. SENSOR"  ;Rrror  flag  for  detecting  jar 

7320  GOSUB  6360 

7340  IF  VARVALUE-1  THEN  GOSUB  10640  ;Cap  not  found,  try  uncapping  agalo 
7360  PROGNAMES-" CAP. ASIDE" 

7380  GOSUB  9060 

7400  RETURN 


7440  ;Get  apeclaen  froa  jar 

7480  PR0GNAME$-"GET. SAMPLE. PROM. JAR" 

7500  GOSUB  9060 

7520  VARNAME$-"PH0T0. SENSOR. 2" 

7540  GOSUB  6360 

7560  IF  VARVALUE-0  THEN  GOSUB  11160  ;Jar  lifted  with  apeclaen 
7580  PROGNAMES-' CHECK. FOR.  SAMPLE.  FROM. JAR" 

7600  GOSUB  9060 

7620  VARNAMES-" SAMPLE. FLAG" 

7640  GOSUB  6360 

7660  IF  VARVALUE-1  THEN  GOSUB  11380  ;aaaple  not  retrieTed  froa  Jar 
7680  CTM$-TIME$  ; Record  Initial  tine  of  atady 

7700  RETURN 

7740  ;Get  new  apeclaen  froa  holder 

7780  PROGNAMES- "GET. SPECIMEN" 

7800  GOSUB  9060 

7820  VARNAMES-'SAMPLE.FLAG" 

7840  GOSUB  6360 
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7860  IP  VARVALUE-l  THEN  GOSUB  14220  :lo  speclaeii  In  holder 
7880  BETDSN 

7920  ;llot  npoclaon 

7960  CIM$>TIME$  ;locotd  tlae  of  nelsht  ■e— orir— nt 

7980  PS0GNAME$-” BLOT. SAMPLE* 

8000  GOSUB  9060 

8020  VARNAME$-*ERR0R.BL0T" 

8060  GOSUB  6360 

8060  IF  VARVALUE>0  THEN  GOSUB  11840  ;Blotter  ■alfunetlon 

8080  PR0GNAME$-*CHECR. FOR. SAMPLE. PROM. BLOTTER* 

8100  GOSUB  9060 

8120  VARNAMES-* SAMPLE. FLAG* 

8140  GOSUB  6360 

8160  IF  VARVALUE-l  THEN  GOSUB  12640  ;S«^>le  dropped  daring  bloCClng 
8180  RETURN 

8220  STake  oelght  oenaureaene.  return  speclaen  to  Jar 
8260  PROGNAMES-* TAKE. WEIGHT* 

8280  GOSUB  9060 

8300  VARNAME$-*ERR0R. BALANCE* 

8320  GOSUB  6360 

8340  IF  VARVALUE>0  THEN  GOSUB  12780  ; balance  naif unction 

8360  PROGNAMES-*  CHECK.  FOR.  SAMPLE.  FROM.  BALANCE* 

8380  GOSUB  9060 

8400  VARNAME$-*SAMPLE.FLAG* 

8420  GOSUB  6360 

8440  IF  VARVALUE-l  THEN  GOSUB  13360  :Sa«ple  dropped  In  balance 
8460  PR0GNAME$-*PUT.  SAMPLE. IN. JAR* 

8480  GOSUB  9060 

8500  VARNAME$-*PH0T0. SENSOR. 2* 

8520  GOSUB  6360 

8540  IF  VARVALUE-0  THEN  GOSUB  13520  ;Jar  lifted  by  forceps 
8560  RETURN 

8600  ;Cap  Jar  and  return  to  water  bath 

8640  PROGNAME$-"GET.CAP* 

8660  GOSUB  9060 

8680  VARNAMES-* PHOTO. SENSOR* 

8700  GOSUB  6360 

8720  IF  VARVALUE-l  THEN  GOSUB  13660  ;cap  not  retrieved  fro«  bolder 
8740  PROGNAMES-’CAP.JAR* 

8760  GOSUB  9060 

8780  VARNAMES-'PHOTO. SENSOR. 2* 

8800  GOSUB  6360 

8820  IF  VARVALUE-0  THEN  GOSUB  13900  ;Jar  not  capped  properly 

8840  PROGNAME$-*GET.JAR* 

8860  GOSUB  9060 

8880  var;iame$-*jar.falg* 

8900  GOSUB  6360 

8920  IF  VARVALUE>0  TH^  GOSUB  9280  ;Regrlp  lar 

8940  PROGNAMES-* REPLACE. JAR* 

8960  GOSUB  9060 

8980  RETURN 


m 
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9280 

9329 

9360 

9600 

9420 

9440 

9460 

9460 

9520 

9540 

9580 

9600 

9620 

9640 


9680 


9720 

9740 

9760 

9780 

9800 

9820 

9840 

9860 

9880 

9900 

9920 


9960 


10000 


10040 

10080 

10100 

10120 

10140 

10160 

10220 

10260 

10280 


;KUOE  HAUDLUK  tOOTUBS 

;Jar  not  dctectad  1 1— tin  froa  water  heth 
OOONT-0 

;Tfc7  recrlpplag  jar  ao  a»re  than  three  tlaes 
VHILE  (VA£VALUE>0)  AMD  (COUMTO) 

OOUMT-COONT+1 

MESSAGE$-STt$(VARVALITE)*^‘*  SIDE(S>  OF  SAMPLE  JAR  UNDETECTED." 

IF  VARVALUE-4  GOTO  9920 

MESSAGE$-MESSAGE$-»-"  RECRIPPING  PROCEDURE  EXICUTED.":  GOSUB  10040 
RSET  TTPE$«"0":  GOSUB  14360  ;Prlat  aeeeage  la  STATUS.IEP 
VEND 

IF  VARVALUE"0  THEN  RETURN  ;leeiae  procedure  If  error  corrected 
ON  VARVALUE  GOTO  9620.9800.9800,9920 
RSET  TYPES-" 1" 

HESSAGE$-"REGRIPPING  PROCEDURE  UNSUCCESSFUL." 

;reaet  error  flag  JAR. ASIDE. FLAG,  flag  speclaea  jar.  prlat  error 
aessage,  aad  aoee  oa  to  aext  jar 

IF  JAR. ASIDE. FLAG-0  THEN  MESSAGE$-MESSAGE$<t-"  JAR  SET  ASIDE.": 

JAR. ASIDE. FLAG-1:  JAR(BATH)-1:  GOSUB  14360:  RETURN  1400 

MESSEAGES-MESSAGES-f"  NO  ROOM  TO  PUT  JAR  ASIDE,  SYSTEM  SHUT  DOWN 
PROCEDURE  EXICUTED." 

GOSUB  14360  :Frlot  aesaage 

GOSUB  10200  ;SysteB  shat  do«a  procedure 

RETURN  1860  ;Teralaate  prograa 

RSET  TYPES- 1 

MESSAGES-"JAR  MAY  NEED  REPAINTING.  REPLACING  JAR  IN  BATH  ATTEMPTED." 
GOSUB  10360  ;retura  jar  to  eater  bath 
JAR(BATH)-1  ;flag  jar  (i.e.  dlacoatluue  study) 

GOSUB  14360  ; prlat  aesaage 
RETURN  1400  ;lcst  jar 

Vn 

IF  COUNT- 1  THEN  MESSAGES-MESSAGES+"  JAR  NOT  PRESENT  OR 
UNRETRIEVABLE" :  RSET  TYPES-"!’:  GOSUB  14360:  JAR(BATH)-1:  RETURN  1400 

MESSAGES-" JAR  DROPPED  DURING  REGRIPPING  PROCEDURE,  SYSTEM  SHUT  DOWN 
PROCEDURE  EXICUTED.":  GOSUB  14360:  JAR(BATH)-1:  GOSUB  10200 

RETURN  1860  {Teraiaate  prograa 


;legrlpplag  procedure 

PROGNAMES- " RECRIPP ING " 
GOSUB  9060 
VARNAMES-* JAR. FLAG" 
GOSUB  6360 
RETURN 

;Systea  shat  doan 
PROGNAMES- " DRYER. OFF" 
GOSUB  9060 
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10300  PRINT#1,  ''BTE*-KXR$(13) 

10320  RETURN  1860 

10360  ;Pat  Jar  la  aatar  bath 

10600  ?ROGNAMB$-'PUT.  JaR.  IN.  aATH" 

10420  GOSUB  9060 

10440  RETURN 

10480  ;Gat  cap  froa  holder 

10520  PR0GNAME$-'‘ AVOID. SENSOR":  GOSUB  9060 

10540  PROGNAME$-”GET. CAP. FROM. HOLDING":  GOSUB  9060 

10560  PROGNAME$-"AVOID. SENSOR" :  GOSUB  9060 

10580  PROGNAME$-"MOVE. TO. CAPPING. CAP":  GOSUB  9060 

10600  RETURN 

10660  :Cap  not  reaored  froa  Jar  properly 

10700  COUNT-O 

10720  WHILE  (VARVALUE-1)  AND  (C0UNT<3) 

10740  OOUNT-COUNT+1 

10760  MESSAGE$-"JAR  UNCAPPED  IMPROPERLY.  UNCAPPING  PROCEDURE  REPEATED. " 

10780  RSET  TYPE$-"0“ 

10800  GOSUB  14360 

10820  PROGNAME$-"GP.HAND":  GOSUB  9060 

10840  GOSUB  11000;  Uncap  Jar 

10860  WEND 

10880  IF  VARVALUE-0  THEN  RETURN 

10900  MESSAOE$«"UNCAPPING  UNSUCCESSFUL.  JAR  REPLACED  IN  BATH." 

10920  RSET  TTPE$-"1" 

10940  GOSUB  14360;  prlat  aaaaage 

10960  GOSUB  8840;  Get  Jar,  pet  Jar  in  bath 

10980  RETURN  1400  ;nezt  Jar 

11020  ;UBcapplng  procedure 

11060  PROGNAMES- "UNCAP. JAR" 

11080  GOSUB  9060 

11100  VARNAME$-"PH0T0. SENSOR" 

11120  GOSUB  6360 

11140  RETURN 

11180  ;Jar  lifted  vltb  s«ple 

11220  MESSAGES-" JAR  LIFTED  WHILE  TRYING  TO  RETRIEVE  SPECIMEN  FROM  JAR.  JAR 
REPLACED  IN  BATH.*:  GOSUB  14360 
11240  RSET  TYPES-" 1" 

11260  PR0GNAMES-"JAR.HAND1" 

11280  GOSUB  9060 

11300  GOSUB  8640;  Get  cap,  cap  Jar,  pat  Jar  In  bath 
11320  JAR( VAL( BATHS ))-l 

11340  RETURN  1400;  lest  Jar 

11380  ;aaaple  not  detected  froa  Jar 

11420  MESSAGES-"SPECIMEN  NOT  RETECTED  DURING  REMOVAL  ATTEMPT  FROM  JAR. 

PROCEDURE  REPEATED." 

11440  RSET  TYPES-"0" 

11460  GOSUB  14360;  Print  aeaaace 
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11480  GOSUB  8460;  Pat  r^opla  la  Jar 
11500  PROGNAMEB-’GET.SA.  LE.FRm.  JAR’ 

11520  GOSUB  9060 

11540  PROGNAMES-’CHECR.  FOR.  SAMPLE.  PROM.  JAR’ 

11560  GOSUB  9060 

11580  VARNAMES-’ SAMPLE.  FLAG’ 

11600  GOSUB  6360 

11620  IF  VARVALUE-0  THEN  RETURN 

11640  MESSAGE$-MESSAGE$-»>’SPECIMEN  RETRIEVAL  UNCSUCCESSFUL.  JAR  REPLACED  IN 

BATH.’ 

11660  RSET  TTPE$-’1’:G0SUB  14360 

11680  GOSUB  8460  ;Pat  mmmple  in  Jar 

11700  GOSUB  8640  ;Gat  cap,  cap  Jar,  put  Jar  in  bath 

11720  JAR(BATH)-1 

11740  RETURN  1400  ;Bext  Jar 


11800  ;Blotter  aolfanetlao 

11840  MESSAGES-’BLOTTER  MALFUNCTION:  ’ 

11860  ON  VARVALUE  GOSUB  12020,12060 

11880  MESSAGE$-MESSAGE$-»-’SUTDOHN  PROCEDURE  EXICUTED.  ’ 

11900  RSET  TYPES-’ 1’ 

11920  GOSUB  14360  ;Print  aesaace 

11940  ON  VARVALUE  GOTO  12180,1860 

11960  RETURN 

12020  MESSAGE$-MESSAGE$+’WILL  NOT  CLOSE.  ’ 

12040  RETURN 

12060  MESSAGE$-MESSAGE$+"WILL  NOT  OPEN.  ’ 

12080  RETURN 

12140  ;Deteralnlng  type  of  nolfonctlon 

12180  VARNAMES-’HOLD. COUNT’ 

12200  GOSUB  6360 

12220  PROGNAMES-’ERROR. BLOT. ROUTINE’ 

12240  GOSUB  9060 

12260  ON  VARVALUE  GOSUB  1244,12300,12360 

12280  RETURN  1860 

12300  PROGNAMES-’PUT. SAMPLE. IN. HOLDER. 2’ 

12320  GOSUB  9060 

12340  GOTO  12400 

12360  PROGNAMES-’PUT. SAMPLE. IN. HOLDER. 3’ 

12380  GOSUB  9060 

12400  PROGNAMES-’GET.  SAMPLE.  FROM.  BOLDER.  1  ’ 

12420  GOSUB  9060 

12440  GOSUB  8460  ;Put  saaple  In  Jar 

12460  GOSUB  8640;  Get  cap,  cap  Jar,  put  Jar  In  bath 

12480  GOSUB  10200;  Syatea  Shutdown 

12500  RETURN 

12560  ;Blotter  will  net  clone 
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12600  RETURN  1860;  Teralnate  prograa 

12660  ;Saplc  dropped  dnrlag  blottiag 

12700  MESSAGE$-MESSAGE$'t>'‘ SAMPLE  NOT  DETECTED  AFTER  BLOTTING.  JAR  PUT  BACK 

IN  BA7B.  ** 

12720  RSET  TTPES-”!*’:  GOSUB  14360 
12740  GOSUB  8640 
12760  RETURN  1400 

12800  ;Belaace  door  ■elfoBCtloa 

12840  MESSAGE$-’'BALANCE  DOOR  MALFUNCTION:  ” 

12860  ON  VARVALUE  GOSUB  12960,13040,13140,13280 

12880  RSET  TTPE$-"0" 

12900  GOSUB  8640 
12920  GOSUB  10220 

12940  RETURN  1860 

12980  MESSAGE$-MESSAGE$-»-’'BALANCE  DOOR  WILL  NOT  OPEN;  ERROR  1.  SAMPLE  AND 
JAR  PUT  BACK  IN  BATH" 

13000  GOSUB  8460 
13020  RETURN 

13060  MESSAGES-MESSAGES't-'BALANCE  DOOR  WILL  NOT  OPEN:  ERROR  2.  JAR  PUT  BACK 
IN  BATH" 

13080  PROGNAME$-"MOVE  TO  CAPPING. FORCEPS" 

13100  GOSUB  9060 

13120  RETURN 

13160  MESSAGE$-MESSACE$+*BALANCE  DOOR  WILL  NOT  CLOSE:  ERROR  3.  WEIGHT  NOT 
RECORDED,  SAMPLE  AND  JAR  BUT  BACK  IN  BATH" 

13180  PROGNAME$-"SAMPLE. IN.  BALANCE. OUT" :GOSUB  9060 
13200  PROGNANE$-"GRIP. SAMPLE" :GOSUB  9060 

13220  PROGNAME$-"MOVE. TO. BALANCE. OUT" :GOSUB  9060 

13240  GOSUB  8460 

13260  RETURN 

13300  MESSAGE$-MESSAGE$')>"BALANCE  DOOR  WILL  NOT  CLOSE:  ERROR  4.  WEIGHT 
RECORDED,  SAMPLE  AND  JAR  RETURNED  TO  BATH" 

13320  GOSUB  8460 

13340  RETURN 

13380  ;Saple  dropped  In  belance 

13420  MESSAGES- "SAMPLE  DROPPED  IN  BALANCE." 

13440  RSET  TYPES-" 1 " :GOSUB  14360 

13460  PROGNAMES-’MOVE. TOWARDS. BLOTTER":  GOSUB  20850 

13480  GOSUB  8640 

13500  RETURN  1400 

13540  :Jar  lifted  with  forceps 

13580  NESSACE$-"JAR  LIFTED  WITH  FORCEPS  AS  SAMPLE  IS  PLACED  lil  JAR." 

13600  RSET  TYPES-"0’:GOSnB  14360 

13620  PROGNAMES-"JAR.HANG2":GOSUB  9060 

13640  RETURN 


13680  ;Cap  alsalnf  froa  holdar 

13720  MESSAGE$-''CAP  MISSING  FROM  HOLDER.  VILL  GET  EXTRA  CAP  IF  AVAILABLE.  ' 
13760  PROGNAME$-*NEXT.CAP'‘:GOSUB  9060 
13760  VARNAME$-''PH0T0.  SENSOR"  :G0SUB  6360 

13760  IF  VARVALUE-0  THEN  RSET  TTPiS^'O":  GOSDB  14360: RETURN 
13800  IF  JAR. ASIDE.  FLAOl  THEN  MESSAGE$-MESSAGE$-»-''N0  EXTRA  CAP  FOUND.  ASIDE 
POSITION  FULL.  SYSTEM  SHUT  DOVN.’tRSET  TYPES-’ 1 " :GOSUB  14360:GOSUB 
10260  :RETURN  1860 

1M20  MESSACE$-M£SSAGE$*f’NO  EXTRA  CAP  FOUND,  UNCAPPED  JAR  PUT  ASIDE.’ 

13840  RSET  TYPES-’ l’:G0SUB  14360 

13860  PROGNAMES-’UNCAPPED.JAR.ASIDE’:JAR.ASIDE.FLAG-l:GOSUB  9060 
13880  RETURN  1400 

13920  ;Jar  not  capped  properly 

13960  MESSAGES-’JAR  NOT  THREADED  PROPERLY  DURING  CAPPING  PROCEDURE. 

UNCAPING/RECAPPING  ATTEMPTED.’ 

13980  RSET  TYPES-’O’:  GOSUB  14360 

14000  GOSUB  11020 

14020  IF  VARVALUE-1  THEN  GOSUB  10700;  Jar  aot  uncapped 
14040  PROGNAMES-’CAP. ASIDE’ :GOSUB  9060 

14060  PROGNAMES-’GET.CAP’:GOSUB  9060 

14080  VARNAMES-’PHOTO. SENSOR’ :GOSUB  6360 

14100  IF  VARVALUE-0  THEN  RETURN 

14120  MESSAGES-’RECAPPING  PROCEDURE  UNCSUCCESSFUL.  ’ 

14140  RSET  TYPES-’l’ 

14160  IF  JAR. ASIDE.  FLAG-1  THEN  MESSAGE$-MESSAGES+’NO  AVAILABLE  POSITIONS  TO 

PLACE  JAR  ASIDE.  SYSTEM  SHUT  DOWN.’:  GOSUB  14360:GOSUB  10220:RETURN 
1860 

14180  RETURN 

14380  ;Prlnt  Message  to  STATDS.RKP 

14420  RSET  BS-STRS(BATH) 

14440  LSET  TS-TIMES 

14460  LSET  MESSS-^MESSAGES 

14480  PUT  #5,  (LOF(5)/128)+l 

14500  RETURN 
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iPDICTlOl  KXT  IOutIMBS 

14520  ;lBlClaliBc  Jar(T)  Irray  (Fuaetloa  kay  5) 

14380  LOOP-0 

14800  PR1I1T:PRINT  "INITIALIZING  STATUS  OF  SAMPLE  JARS  IN  WATER  BA11!":PRINT 
14620  INPUT  "INITIALIE  ALL  JARS?  (T/N):  ",ANS$ 

14640  IP  ANS$-"K"  THEN  GOTO  14740 

14660  FOR  01  TO  30  ;laBbar  of  Jar  locatloos  in  hath 
14680  JAR(C)-0 

14700  NEXT  C 
14720  RETURN 

14740  INPUT  "ENTER  JAR  #, VALUE  #  (0/1)  lENTER  0,0  TO  END? :  ",K,KV 
14760  IF  K-0  THEN  RETURN 

14780  JAR(K)-KV 
14800  GOTO  14740 

14840  :F111  bpty  Javs 

14880  FOR  FILL-1  TO  (LOF(3)/13) 

14900  GET  #3. FILL 

14920  JR-VAL( RATINGS ) 

14940  IF  JR-0  GOTO  15020 

14960  lATB-FILL 

14980  JVWO-VAL(HHO$) 

15000  IF  JWWO-0  THEN  GOSUB  15060:RSET  WWO$-"l":PUT  #3, BATH:  GOTO  15040 

15020  NEXT  FILL 

15040  RETURN 

15060  :FlUlag  Jars 

15120  VARNAME$-"BATH. LOCATION" 

15140  VARVALUE-BATH:  GOSUB  6000 

15160  GOSUB  7120;  Gat  Jar,  uacap  Jar,  pot  cap  aside 
15180  PROGNAME$-"GET.JAR. FROM. CAPPING. NO. CAP" :GOSUB  9060 
15200  PROGNAME$-"FILL.JAR":GOSUB  9060 
15220  PROGNAME$-"PUT.  JAR.  IN.  CAPPING. MO.  CAP"  :GOSUB  9060 

15240  GOSUB  10460 :GOSUB  8680;  Cap  Jar,  pat  Jar  In  bath 
15260  RETURN 

15320  ;Flot  data  (FSactloa  ksy  8) 

15380  INPUT  "ENTER  FILE  TO  BE  PLOTTED  ".FILES 

15400  CLOSE: OPEN  FILES  FOR  INPUT  AS  #1 

15420  OPEN  "RSI. IMP"  FOR  OUTPUT  AS  #2 
15440  FOR  I-l  TO  6:INPUT  #1.  DUMMTZ:  NEXT  I 
15460  INPUT  #1.  IVEIGHT 

15480  FOR  I-l  TO  6:  INPUT  #1 ,DUMMTS:NEXT  I 

15500  INPUT  #1,  DUM:  INPUT  #1,0UM 

15520  WHILE  NOT  EOF(l) 

13540  INPUT  #1,ITIME, HEIGHT 

15560  STIME-SQR(ITIME) 

15580  SWEIGHT- 1 00*( (HEIGHT- IHEIGHT) / IHEIGHT) 

15600  PRINT  #2, USING  "###.####’;  SWEIGHT; 

15620  PRINT  #2,","; 

15640  PRINT  #2,STIME 

15660  WEND 


15680  LOOP-0 

15700  CLOSE: RETURN  1860 


SStAtTiaC  A  m  STDPT  ((»  SPBCDm)  (mCTIM  EST  7) 

15760  LOOP-0 
158AO  ONE-0:TVO-0 

15S80  ;Se«rcli  for  •▼allable  Jar  vlth  rating*!  (Jar  filled  vlth  enter) 

15900  FOR  01  TO  (LOP(3)/LAST(3)) 

15920  GET  #3,C 

159A0  JR-VAL( RATINGS) 

19960  IF  JROl  GOTO  16120  ;l>on*t  conalder  Jars  with  a  rating*! 

19980  JFD-VAL(FD$) 

16000  JH-VAL(MID$(CI$.1,4)) 

16020  JM-VAL(MID$(CI$.6,2)) 

16040  JVWO-VAL(WHO$) 

16060  IF  (JFO-0)  AND  (JVWO-1)  THEN  BATH-C:GOT0  16260;  Jar  ready  for  use 

16080  IF  (JFU-0)  AND  (JVWO*0)  TTHEN  0NE-C:GOT0  16120;  Possible  Jar, 

contlnne  searching 

16100  IF  (JH>-24)  AND  (JAR(C)-O)  THEN  TVO-C;  Possible  Jar  for  switching 

16120  NEXT  C 

16140  IF  ONE>0  THEN  GOSUB  19080 :GOT0  18940  ;F111  Jar  '(ME*  wlrh  enter 

16160  IF  1VO>0  THEN  GOSUB  19900 :G0T0  18940  ;Swltcb  Jars 

16180  PRINT:PRINT  "NO  JARS  AVAILABLE  AT  THIS  TIME. . . " :RETURN 

16220  ;Ilser  Input  for  speclnen  specifications 

16260  GET  #3. BATH 

16280  INPUT  "ENTER  SAMPLE  DESCRIPTION:  ", DISCS 

16300  INPUT  "ENTER  RESIN  TYPE;  ", RESINS 

16320  INPUT  "ENTER  FIBER  TYPE  AND  NUMBER  OF  PLY:  ",  FIBERS 

16340  INPUT  "ENTER  FIBER  CONFIGURATION:  ",C0NFS 

16360  INPUT  "ENTER  TEMPERATUR  OF  ENVIRONMENT:  ", TEMPS 

16380  INPUT  "ENTER  CONDITIONING  PARAMETERS  (25  CHAR);  ",C0ND$ 

16400  INPUT  "ENTER  INITIAL  TIME  INTERVAL  (MIN);  "; INTERVAL 

16420  PRINT:PRINT 

16440  INPUT  "ENTER  FILE  NAME  FOR  NEW  SAMPLE:  ",FFILES 
16460  PRINT:INPUT  "ENTER  SAMPLE  THICKNESS:  ", THICKS 

16480  PRINT; INPUT  "ENTER  SAMPLE  HEIGHT  DIMENSION:  ",A 

16500  PRINT;INPUT  "ENTER  SAMPLE  WIDTH  DIMENSION:  ",B 

16520  PRINT; INPUT  "ENTER  SAMPLE  DIiMK)NAL  (RIGHT  TOP  TO  LEFT  BOTTOM):  ",C 

16540  PRINT -.INPUT  "ENTER  SAMPLE  DIAGONAL  (LEFT  TOP  TO  RIGHT  BOTTOM);  ",D 

16560  JH-0:JM-INTERVAL 

16580  IF  INTERVAL  >*60  THEN  INTRZ-INTERVAL/60:JH-INTR2: JM-INTERVAL-(JH*60) 
16600  TT$-STR(JH)  :TT-LEN(TT$)-1  ;JH$-MIDS(TT$,2,TT) 

16620  ON  TT  GOSUB  16660,16680,16700,16640 
16640  GOTO  16720 

16660  JH$-"000"-*<JH$:  RETURN 

16680  JH$*"00"-»-JH$ :  RETURN 

16700  JH$-"0"-t-JH$ :  RETURN 

16720  TT$-STR$(JM);TT-LEN(TTS)-1;JM$-MID$(TT$,2,TT) 

16740  IF  TT-1  THEN  JM$-"0"-*-JM$ 

16760  RSET  CI$-JH$+:  "-fJMS 

16780  RSET  FD$-STR$(1) 

16800  RSET  WWO$-STRS(l) 

16820  PUT  #3, BATH 
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16860  ; Calculate  saaple  aurfaea  area 

16920  AB£A-A*B 

16940  HyP-SQR(A®2+B®2) 

16960  DIACl-(HTP-C)/2 

16980  DIAG2-(HTP-D)  2 

17000  ASEA1-4*DIAG1 

17020  ARE1A2-4*DIAG2 

17040  AREA-AREA-AREA1-AREA2 

17120  ;Store  Inltal  data  la  filea 

17160  OPEN  "DATAPILE.DAT"  AS  #4  LEN-12 

17180  FIELD  #4,  12  AS  PILES 

17200  LSET  PILES-PFILES 

17220  POT  #4,  BATH 

17240  CLOSE  #4 

17280  RSET  BATH$-STR$(BATH) 

17300  RSET  INTR$-JH$+’:"+JM$ 

17320  PRINT: PRINT  "PLACE  SPECIMEN  IN  SAMPLE  HOLDER" 

17360  ;Taka  ialtlal  welghlag 

17400  PRINT: PRINT: PRINT  "HIT  ANY  KEY  TO  CONTINUE" 

17420  A$-IN1CZY$:IP  A$-""  THEN  17420 

17440  VARNAME$-"BATH.  LOCATION" 

17460  VARVALUE-BATH 

17480  GOSUB  6000 

17500  VARNAME$-"WEIGHT.TYPE" 

17520  VARVALUE-0 

17540  GOSUB  6000 

17560  GOSUB  6940;  Take  Initial  weight  aeaaurewat 

17580  ;Calculatlag  aad  atorlng  tlae  for  nest  laterral 
17620  CDTS-DATES 

1 7640  CDATE$-MID$ ( CDT$ ,7 ,4 )+"-"+MID$( CDT$ ,1,3 )+"-"'HlID$ ( CDT$ ,4,2) 

17660  LSET  LTIME$-CTM$ 

17680  LSET  LDATES-CDATES 

17700  VAINAME$-"IW.SAMPLE( BATH. LOCATION)" 

17720  GOSUB  6360 

17740  IWEIGHTl-VARVALUE 

17760  RSET  IW#-STR$ ( IWEIGHT# ) 

17780  CH-VAL(MID$(CTM$,1,2)) 

17800  CM-VAL(MID$(CTM$,4,2)) 

17820  NH-0 

17840  NM-OHJM 

17860  IP  NM>-60  THEN  NM-NM-60:NH-NH+1 

17880  NH-N»HS^JH 

17900  Tr$-STR$(NH):TT-LEN(TT$)-1:!IH$-MID$(TT$,2,TT) 

17920  IP  TT-1  THEN  NH$-"0">HHS 

17940  TT$-STR$(NM)  :TT-LEN(TT$)-1  :!IM$-MID$(TT$,2,rr) 

17960  IP  TTR-1  THEN  NMS+"0"+NM$ 

17980  IP  NH<-23  THEN  LSET  NTIME$-NH$+":"+NM$+":"+MID$(CTM$,7,2):LSET 

NDATE$-CDATE$:GOTO  18400 
18000  NMO-VAL(MID$(CDT$,l,2)) 

18020  ND-VAL(MID$(CDT$,4,2)) 
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18040  NT»VAL(M1D$(CDT$,7,4)) 

18060  WHILE  NH>23 

18080  HD-NIHl 

18100  IF  I1D>DATS(NM0)  THEN  NH0-NM(H1  :ND-1 

18120  IF  I1M0>12  THEN  NT-N7-fl  :NMO-l  :ND-1 

18140  IIH-NH-24 

18160  WEND 

18180  TT$-STE$ ( NH ) : TT-LEN( TT$ ) - 1 : NH$-MID$ ( TT$ , 2 ,  TT ) 

18200  IF  TT-1  THEN  NH$-‘‘0‘'*tHH$ 

18220  TT$-STR$(NM)  :TT-LEN(TT$)-1  :IIM$-MID$(Tr$,2  ,TT) 

18240  IF  TT-1  THEN  NM$-''0''-»>NM$ 

18260  TT$-STR(NT)!TT-LEN(TT$)-1;NY$-MID$(TT$,2,TT) 

18280  TT$-STR$ ( NMO ) : TT-LEN( TT$ ) - 1 ; NMO$-MID$ ( TT$ , 2 , TT ) 

18300  IF  TT-1  THEN  !IMO$--0"+NMO$ 

18320  TT$-STR$(ND) ;TT-LEN(TT$)-1 ;ND$-MID$(TT$ ,2.TT) 

18340  IF  TT-1  THEN  ND$-“0“-t-ND$ 

18360  LSET  NTIME$-NH$+":“+NM$+":"+MID$(CTMS.7,2) 

18380  LSET  NDATE$-NY$+"-"+NMO$+"-"+ND$ 

18400  PUT  #2,  (LOF(2)/LAST(2))+l 

18440  :Creatlag  datafile 

18480  OPEN  FFILES  AS  #4  LEN-48 

18500  FILED  #4,  10  AS  DDATE$,  8  AS  DTIME$,  10  AS  DHRS$,  10  AS  DWEIGHT$,  10 
AS  DCHW$ 

18520  LSET  DDATE$-CDT$ 

18540  LSET  DT1ME$-CTM$ 

18560  RSET  DHRS$-STR$(0) 

18580  RSET  DWEIGHT$(STR$(IWEIGHT#) 

18600  RSET  DCHW$-"0" 

18620  PUT  #4,  L0F(4)/48+l 

18640  CLOSE  #4 

18680  ;Storiiis  aaaplc  specif Icatlooa 

18720  OPEN  "SPECS.DAT:  AS  #4  LEN-125 

18740  FIELD  #4,  25  AS  SD$,  15  AS  SR$,  15  AS  SF$,  15  AS  SC$,  10  AS  STS,  10 

AS  STH$,  10  AS  SAS,  25  AS  SCONDS 
18760  LSET  SD$-DISCS 

18780  LSET  SR$-RESIN$ 

18800  LSET  SF-FIBER$ 

18820  LSET  SC$-C0NF$ 

18840  LSET  ST$-TEMP$ 

18860  LSET  STH$-THICKS 

18880  LSET  SA$-STR$(AREA) 

18900  LSET  SC0ND$-C0ND$ 

18920  PUT  #4,  RATH 

18940  CLOSE  #4 

18960  RETURN 

19000  ;F111  Jar  'OWE*  with  mcer,  set  startflag 

19040  PRINTtPRINT  “SPECIMEN  JAR  IS  BEING  PREPARED  AT  THE  MONENT,  AT  THE 
BEEP  INTRODUCE  THE  SPECIMEN  (I  HR.)" 

19080  STARTBATH-ONE 

19100  STARTFLAC-1 

19120  VARNAME$-"BATH. LOCATION" 
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19140  VARVALOE-STARTBATH 
19160  GOSUB  6000 

19180  GOSUB  7120;  Get  and  nmemp  Jar 

19200  PROGNAMES-'GET.JAR.  FROM.  CAPPING.  NO.  CAP"  :G0SUB  9060 
19220  PROGNAME$-’PILL.JAR":GOSUB  9060 
19240  PROGNAMB$-'PUT. JAR. IN. CAPPING. NO. CAP": GOSUB  9060 

19260  GOSUB  10460: GOSUB  8680;  Cap  Jar  and  ratnm  to  hath 
19280  CIM$-TIME$ 

19300  ST-VAL(MID$(CTM.1.2)) 

19320  ST-ST-t>l 

19340  TT$-STR$(ST)  :TT-LEN(TT$)-1  :STARTTIME$-MID$(TT$  ,2  .TT) 

19360  IP  TT-1  THEN  STARTriME$-"0"-*-STARTTIME$ 

19380  STARTTIME$-STARTTIME$>MID$(CTM$.3,6) 

19420  GET  #3,STARTBATH 

19440  RSET  F0$-"1" 

19460  RSET  HW0$-"1" 

19480  PUT  #3,STARTBATH 

19500  RETURN 

19660  ; Sounding  Baap  for  Inltallrlng  •peclnan  uniting 

19680  SOUND$-"GGGGGGGGGG" 

19700  PLAY  ">XSOUND$;" 

19720  BATH-STARTBATH 

19740  GSOUB  16260 

19760  STARTFLAG-0 

19780  STARTBATH-0 

19800  STARTTIME$-"00:00;00" 

19820  RETURN 

19860  ;Saarch  for  Jar  with  ratlng*2  for  uvltehlng 

19900  STARTBATH-TWO 

19920  SWITCH-0 

19960  ;Saarch  for  possible  Jar  with  ratlng-2  to  switch  saaple  with 

19980  FOR  01  TO  (L0F(3)/LAST(3)) 

20000  GET  #3,C 

20020  JR-VAL( RATINGS) 

20040  IF  JR02  GOTO  20120 

20060  JF0-VAL(FU$) 

20080  JVWO-VAL(WO$) 

20100  IF  (JFU-O)  AND  (WWO-1)  THEN  SWITCH-C:  GOTO  20240 

20120  NEXT  C 

20140  PRINT  "NO  BATH  LOCATIONS  ARE  AVAILABLE" 

20160  STARTFLAG-0 

20180  STARTBATH-0 

20200  STARTTIME$-"00;00:00" 

20220  RETURN 

20260  ; Switch  Jars 

20300  VARNAMES-"  BATH.  LOCATION" 

20320  VARVALUE-STARTBATH 

20340  GOSUB  6000 

20360  GOSUB  7120;  Cat  and  uncap  Jar 

20380  GOSUB  7440;  Gat  spaclaan  fron  Jar 

20400  PR0GNAME$-"SET. SAMPLE. ASIDE" :GOSUB  9060 
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20420  PR0GI1AHE$-''GET. JAR.  FROM.  CAPPING.  NO.  CAP" -.GOSUB  9060 

20440  PROGNAME$-"BMPTT.JAR":60SnB  9060 

20460  PROGNAMB$-"PILL.JAR":GOSnB  9060 

20480  PROGNAME$-"PUT.JAR.  IN.  CAPPING.  NO.  CAP’ :G0SnB  9060 

20500  GOSUB  10480:GOS1IB  8680;  Cap  Jar  and  return  to  bath 

20520  STARTFLAG-1 

20540  CTM$-TIME$ 

20560  ▼ARNAME$«"  BATH.  LOCATION" 

20580  VARVALUE-SVITCH 

20600  GOSUB  6000 

10620  GOSUB  7120;  Get  aad  oaeap  Jar 

20640  PROGNAME$-’GET. SAMPLE. FROM. JAR": GOSUB  9060;  Orient  Jar 

20660  GOSUB  7760;  Get  speclaea  froa  holder 
20680  PROGNAMES-’CLEAR. BEAM. SENSOR": GOSUB  9060 

20700  GOSUB  8460;  Pnt  saaple  la  Jar 
20720  GOSUB  8600;  Cap  and  retom  Jar 

20780  :Update  'STODIRS.DAT* 

20820  FOR  J-1  TO  LOF(2)/LAS(2) 

20840  GET  #2,J 

20860  IF  BATH-STARTBATH  GOTO  20900 

20880  NEXT  J 

20900  RSET  BATH$-SWITCH 

20920  PUT  #2,J 

20960  ;Update  * DATAFILE. DAT* 

21000  OPEN  "DATAFILE.DAT"  AS  #4  LEN-12 

21020  FIELD#4,  12  AS  FILE$ 

21040  GET  #4,  STARTBATH 

21060  FFILE$-FILE$ 

21080  RSET  FILE$-"EMPTY" 

21100  PUT  #4, SWITCH 

21120  RSET  FILE$«FFILE$ 

21140  PUT  #4, SWITCH 

21160  CLOSE  #4 

21200  ;Update  'JA1STATS.DAT' 

21240  GET  #3. STARTBATH 

21260  JCI$-CI$ 

21280  RSET  CI$-"0000:00" 

21300  PUT  #3, STARTBATH 

21320  GET  #3. SWITCH 

21340  RSET  FU$-’l" 

21360  RSET  CI$-JCI$ 

21380  PUT  #3, SWITCH 

21420  ;Update  SPECS.DAT 

21460  OPEN  "SPECS.DAT"  AS  #4  LEN-125 

21480  FIELD  #4,  25  AS  SD$,  IS  AS  SR$.  13  AS  SF$,  15  AS  SC$,  10  AS  ST$.  10 
AS  STH$,  10  AS  SA$,  25  AS  SCONDS 
21500  GET  #4, STARTBATH 

21520  PUT  #4, SWITCH 

21540  GET  #4.3 

21560  PUT  #4. STARTBATH 
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21580  CLOSE  #4 
21600  8ETDEM 


21640  ;JAISTATS.lli6T  Mt-op  (taictloa  key  6) 

21700  LOOP-0 

21720  IT  LOF(3)/13>0  THEN  GOTO  22260 
21740  FOE  J-1  TO  11 

21760  ESET  EATING$-"r 

21780  ESET  FU$-"0" 

21800  LSET  CI$-*’0000:00'' 

21820  ESET  HHO$-‘'0‘‘ 

21840  FUT  #3,J 

21860  NEXT  J 

21880  GET  #3,3 

21900  ESET  8ATING$-''0‘' 

21920  PUT  #3,3 

21940  GET  #3,4 

21960  ESET  RATINGS-’O’ 

21980  FUT  #3,4 

22000  FOE  J-1 2  TO  20 

22020  ESET  RATING$-"2“ 

22040  ESET  F0$-"0" 

22060  ESET  CI$-"0000:00" 

22080  ESET  W0$-*0“ 

22100  PUT  #3,J 

22120  NEXT  J 

22120  FOR  J-21  TO  30 

22140  ESET  EATING$-"0" 

22160  ESET  F0$-"0“ 

22180  ESET  CI$-"0000:00" 

22200  ESET  WWO$-"0" 

22240  PUT  #3, J: NEXT  J 

22260  FEINT: PRINT  "SET  UP  FILE  JARSTATS.DAT" 

22280  PRINT:PRINT  "INFORMATION  REQUIRED  IS  AS  FOLLOS:" 

22300  PRINT:PRINT  "RATING:  0  -  UNUSABLE" 

22320  PRINT  "  1  -  <  24  HOURS" 

22340  PRINT  "  2  -  >-  24  HOURS" 

22360  PRINT;PRINT  "OSAGE;  1  -  IN  USE;  2  -  NOT  IN  USE" 

22380  PRINT:PRINT  "TIME  INTERVAL:  XXXX:XX  (HRS:MIN)" 

22400  PRINT :PRINT  "FILLED/NOT  FILLED;  1-FILLED;  O-NOT  FILLED" 

22420  PRINT;INPUT  ;SETUP  ALL  BATH  LOCATIONS?  T/N  ",ANSS 

22440  IF  MID$(ANS$,1,1)-"T"  GOTO  22780 

22460  PRINT; INPUT  "ENTER  BATH  LOCATION",  ANSS 

22480  IF  ANSS-""  GOTO  22920 

22500  BATH-VAL(ANS$) 

22520  GET  #3, BATH 

22540  PRINT :PEIirr  "EATING-  ".EATINGS 

22560  PRINT:PEINT  "USAGE-  ",FD$ 

22580  PEINT:PEINT  "INTERVAL-  ".CIS 

22600  PEINT:PEINT  "FILLED/NOT  FILLED-  ",WOS 

22620  PRINT:INPUT  "ENTER  PARAMETERS  (4):  ",JR,JFU,JCIS,JVWO 

22640  RSET  RATINGS-STES(JE) 

22660  RSET  FOS-STES(FJFU) 

22680  RSET  CIS-JCIS 

22700  RSET  WWOS-STES(JWO) 

22720  PUT  #3, BATH 

22740  GOTO  22460 
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22780 

22800 

22820 

22840 

22860 

22880 

22900 

22920 


FOR  J-1  TO  30 

PRINT: PRINT  "ENTER  WW0$  PARAMETER  FOR  BATH  LOCATION  ".J 
INPUT  JR 
GET  #3,J 

RSET  WHO$-STR$(JR) 

PUT  #3,J 
NEXT  J 
RETURN 
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22940  sPrlat  statoa  report  and  dcloto  file  (Vteictlon  koj  4) 
23040  LPRIMT  *  BATH  TYPE  OP  ERBOR" 

23040  LPRINT  ”  ERROR” 

23080  LPRINT 

23100  POR  ST-1  TO  L0F(5)/LAST(S) 

23120  GET  #5, ST 

2J140  LPRINT  ”  ”,B$: 

21160  LPRINT  ” 

21180  TTPE-VAL(  TYPES) 

21200  IP  TYPE-0  THEN  LPRINT  “NOT  FATAL 

23220  IP  TYPE-1  THEN  LPRINT  "FATAL 

23240  VAL-LEN(MESS$) 

23260  IP  VAL<-50  THE  LPRINT  MESS$:GOTO  23340 

23280  MESSAGE$-M1D$(MESS$, 1.50): LPRINT  MESSAGES 

23300  LPRINT  “ 

23320  LPRINT  MIDS( ,51 ,VAL-50) 

23340  NEXT  ST 
23360  CLOSE  #5 

23380  OPEN  "STATUS. REP"  FOR  OUTPUT  AS  #5 
23400  CLOSE  #5 
23420  RETURN  460 
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